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Sereno variabile. Che tempo farà? Sia per il dilettante che 
vuole scoprirlo con l'Apple II, sia per il professionista che ha 
bisogno di uno strumento per catalogare e ordinare i suoi dati, 
questo programma ricco e versatile è l'ideale. 


Prima visione. Se volete divertirvi con l'animazione, oppure 
1 / se avete bisogno di un breve filmato pubblicitario da mettere in 

/ vetrina, Movie Construction Kit fa al caso vostro: consente di 

" creare fotogrammi, di collegarli tra loro, di proiettarli a piacere. 


Scorciatoie e trucchi. E’ scritto sul manuale, ma non sappia¬ 
mo più dove. Oppure non è scritto proprio da nessuna parte. E’ 
l'idea per sveltire il lavoro, ii trucchetto per aprire prima un me¬ 
nù, la scorciatoia giusta. Per Mac, a puntate da questo numero. 


Stazione meteo, pag. 18 


sommario 

1 ^ m Ecco i super monitor. Un grande futuro davanti a loro: i moni- 
tor giganti per Macintosh renderanno ancora più professionali 
J le applicazioni di Desktop Publishing, grafica, ingegneria, musi¬ 
va ca, statistica. Vediamoli da vicino, con prestazioni e prezzi. 


Più RAM per il II. Più cresce il parco software a disposizione 
degli utenti, più questi sentono la necessità di una memoria più 
vasta. E i produttori propongono allora sempre nuove schede 
per espanderla. Quale scegliere? Eccone nove a confronto. 

Ordinamento super. Il riordinamento veloce delle matrici, in 
un database in Basic per esempio, può essere un’operazione 
preziosa. Questa utility ne riorganizza fino a otto asservite a 
una matrice chiave. Usarla è semplicissimo. 


Apple Share. Tutti gli utenti della rete AppleTalk sentivano la 
mancanza di un software di gestione come Apple Share; richie¬ 
de il sacrificio di un Macintosh, da dedicarsi solo alla gestione, 
ma risolve tutti i problemi di collegamento e comunicazione. 


Soluzioni con Omnis3. Magazzini? Studi di avvocati? Ambula¬ 
tori dentistici? Condomini? Tutte realtà, complesse da gestire, 
per le quali la Apple ha preparato soluzioni personalizzabili: una 
serie di applicazioni del programma Omnis3. Ecco le prime. 


Costanti e variabili. Questa utility, Cross Reference, consen¬ 
te di ottenere dei praticissimi prospetti con tutte le costanti, le 
variabili e i riferimenti alle linee. La stampa di questi prospetti è 
possibile in quattro diversi formati. 

Education. Pisa '87: per tre giorni l'Apple University Consor- 
tium è stato ospite della bella città italiana, più di cinquecento 
professori ed esperti hanno fatto il punto sull'utilizzo del compu¬ 
ter nella didattica, scambiandosi informazioni ed esperienze. 


I linguaggi per Macintosh. Per i programmatori ormai non 
c'è che l'imbarazzo della scelta: Basic e Pascal vanno sempre 
per la maggiore, e le nuove produzioni abbondano. Ma anche 
Fortran, "C" e Logo vedono nascere nuove versioni. 


Intelligenza artificiale. Ultimo appuntamento della serie di 
quattro articoli dedicata al tema dell'intelligenza artificiale. In 
questo numero i sistemi esperti: con motore mferenziale all'indie- 
tro o in avanti, consentono tempi di sviluppo bassissimi. 
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Cricket Draw, pag. 24 e 
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Nuova generazione di CAD per Macintosh 

teff 

SPACE EDIT 

é uno dei più potenti pacchetti professionali di 
DISEGNO TRIDIMENSIONALE disponibile 
su MACINTOSH per Architetti, Arredatori, Designers, 

Scenografi, Disegnatori industriali e Geometri. 

La possibilità di eseguire la quotatura automatica, 
di realizzare prospettive ed assonometrie da ogni punto 
di vista con rimozione delle linee nascoste, di lavorare su 
8 disegni sovrapposti con una biblioteca di elementi in 3D 
predisegnati, fanno di Space Edit un programma di altissimo 
livello professionale, rigorosamente preciso e semplice da usare. 

Pilota direttamente ogni tipo di plotter fino al formato AO. 




PROFESSIONAL CAD 
e MICRO CAD SYSTEM 

due tra i più potenti pacchetti di CAD/CAM 
bidimensionali per progettisti meccanici, 
con caratteristiche paragonabili a sistemi 
decisamente più costosi. La loro potenza unita 
alla facilità d'uso rendono il MACINTOSH 
una soluzione veramente unica nel settore. 


Entrambi i sistemi presentano caratteristiche 
avanzate quali: quotatura automatica con 
tolleranze, zoom infinito, pilotaggio di plotter 
formato AO; dispongono inoltre di moduli 
CAM per il collegamento diretto con 
macchine a controllo numerico. 
PROFESSIONAL CAD in particolare 
esegue le proiezioni ortogonali ed 
isometriche delle viste di lavoro e la 
visualizzazione tridimensionale del disegno. 
MICRO CAD é un compromesso ideale tra 
costo e prestazioni professionali. 


Questi programmi sono disponibili presso i migliori APPLE CENTER. Distribuiti ed assistiti in esclusiva in tutta Italia da: 




Computer 


sjJ. Via Chiapponi,42 - 29100 PIACENZA - Tel. 0523/20626 

















































































applicando 

DIREZIONE GENERALE E AMMINISTRAZIONE 

Edltòmlkss) srl 


20122 Milano - C.so Monforte 39 
Tel. 02/702429 - Telex 350132 
Macorm I 

Direttore Responsabile 
Stefano Benvenuti 

Coordinamento editoriale 

Francesca Marzotto 

Responsabile programmi 
Giorgio Caironi 

Impaainazione elettronica 
Adelio Barcella 

Redazione 

Marco Gussoni 
Mario Magnani 

Collaboratori 
Eleonora Bottelli 
Mirko Diani 
Dolma Poli 
Alfonso Scoppetta 

Traduzioni di 

Pippo Laura (Apple II) 

Livio Fiorenti (Macintosh) 

Segretaria di redazione 
Ivonne Rossi 

Tutti i diritti di riproduzione e traduzio¬ 
ne di testi, articoli, progetti, illustra¬ 
zioni, disegni, listati dei programmi, 
fotografie ecc. sono riservati a termi¬ 
ni di legge. I programmi pubblicati su 
Applicando possono essere utilizza¬ 
ti per scopi privati, scientifici e dilet¬ 
tantistici, ma ne sono vietati sfrutta¬ 
menti e utilizzazioni commerciali. I 
manoscritti, i disegni, le foto, anche 
non pubblicati, non si restituiscono. 

Servizio abbonamenti: Editronica 
srl, Corso Monforte 39, Milano Con¬ 
io Corr. Postale n. 19740208. Una 
copia L. 6.000. Arretrati L. 7.000. Ab¬ 
bonamento 10 numeri (senza dono) 
L. 50.000 (estero L. 70.000). Abbona¬ 
mento 10 numeri più le Pagine del 
Software e dell’Hardware L. 60.000 
(estero L. 80.000). Periodico mensi¬ 
le - Stampa: ELCÓGRAF Beverate di 
Brivio. Distribuzione esclusiva per 
l’Italia A. & G Marco spa, Via Fortez¬ 
za 27, Milano, Tel. 02/25261, telex 
350320 - Fotolito: Mediolanum Color 
Separation, Via Marcona 3. Milano. 
© Copyright 1987 by Editronica srl 
Registrazione Tribunale di Milano 
n. 24 del 15.1,1983-Pubbl. inf. 
al 70%. 

Per la pubblicità su Applicando: 
Studiosfera, 1 a Strada 24. Milano S. 
Felice. 20090 Segrate (Milano). Tel. 
02/7533939-Telex 350132 Macorm I 



Mentre stiamo per andare in stampa con questo 
numero di Applicando ad Ahoy, Rotterdam, ha a- 
perto i battenti il primo MacWorld expo europeo. 

Un tale avvenimento sottolinea il fatto che ormai 
anche il mercato europeo si sta muovendo al passo 
con quello americano. Negli ultimi mesi, infatti, gli 
utenti Macintosh si sono moltiplicati, e così Apple 
ha guadagnato una significativa fetta di mercato nel¬ 
l'area business. E questo non solo in Francia, In¬ 
ghilterra, Germania, eccetera, ma anche in Italia. 

Con la crescita dell'utenza Macintosh stiamo assi¬ 
stendo anche a un altro importante avvenimento: 
l'affacciarsi sul mercato di operatori che commer¬ 
cializzano hardware e software fino a ieri presenti 
solo sul mercato americano, e quindi di difficile e a 
volte impossibile reperibilità. Il MacWorld expo di 
Rotterdam nasce anche per loro, perché possano a- 
vere maggiore facilità di contatto con i produttori a- 
mericani e possano mettere a disposizione degli u- 
tenti Macintosh tutti quegli strumenti di lavoro indi¬ 
spensabili per trarre il massimo dal rivoluzionario 
computer della mela. 

Nel prossimo numero di Applicando troverete i 
particolari di questo primo MacWorld expo euro¬ 
peo, con tutte le novità. 

Continua intanto anche su questo numero l'ecce¬ 
zionale offerta-sconto che Applicando propone a 
tutti i suoi lettori che vogliono acquistare un Apple 
IIGS: all'interno troverete tutte le modalità e la pagi¬ 
na da ritagliare e consegnare al rivenditore. 

Stefano Benvenuti 
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Con il Mac 
anche UsaToday 

E’ il quotidiano più let¬ 
to in assoluto negli Stati 
Uniti. Non è dedicato né 
a un particolare stato né 
a una particolare città. 
Vale per tutti e, soprat¬ 
tutto, riesce a essere letto 
da tutti. 

Si chiama Usa Today, 
è diviso in fascicoli per 
argomenti nei quali ven¬ 
gono raccolte le notizie 
dei 52 stati americani. 

Ma non solo: anche 
spettacolo, cultura, infor¬ 
mazione e divertimento 
hanno un ruolo preciso 
nel giornale e per poter o- 
gni giorno illustrare le 
varie notizie, dai grafici 
di andamento di Wall 
Street, alle mappe che ac¬ 
compagnano particolari 
episodi e a qualsiasi im¬ 
magine che debba accom¬ 
pagnare una storia, Ri¬ 
chard Curtis,46 anni, ca- 
poserviziodell'ufficiogra- 
fico del quotidiano, ha vo¬ 
luto che venisse installa¬ 
ta una rete di Macintosh. 

"In un quotidiano se 


un'illustrazione non può 
essere prodotta veloce¬ 
mente se ne fa a meno 
del tutto", dice Richard 
Curtis. "Ed è qui che en¬ 
tra in gioco il Macinto¬ 
sh: è una macchina ecce¬ 
zionale che permette di 
produrre in poco tempo 
qualsiasi tipo di disegno 
con il grande vantaggio 
di poter fare e rifare i par¬ 
ticolari senza dover rico¬ 
minciare ogni volta da ca¬ 
po." 

"D'altronde", continua 
Richard Curtis, "in un 
quotidiano non sono solo 
i reporter che vivono sul¬ 
la notizia, quando capita 
il comunicato di agenzia 
dell'ultimo momento la 
pagina la dobbiamo rifare 
noi a tempo record". 

Una Lan 
per Corvus 

Si chiama Lan Sys¬ 
tem, e distribuisce in e- 
sclusiva i prodotti Cor¬ 
vus sul territorio naziona¬ 
le. Guidata da Virgilio 
Morieri, già direttore 
commerciale della Cifra- 


dieci, precedente distribu¬ 
tore Corvus, la nuova so¬ 
cietà si occuperà esclusi¬ 
vamente dei prodotti per 
reti locali e personal com¬ 
puter, ovvero sistemi di 
informatica distribuita. 
Avvalendosi di una rete 
di distributori, la Lan 
Systems si interverrà di¬ 
rettamente solo nelle 
grosse utenze. Per ulterio¬ 
ri informazioni: Lan 
Systems, Via Roncati 9, 
Bologna, telefono 
051/437025. 

A scuola 
di Apple Edit 

Editori e redattori, gra¬ 
fici e pubblicitari, tipo¬ 
grafi ed esperti in comu¬ 
nicazione: chi si occupa 
di carta stampata alla di¬ 
mostrazione pratica di de¬ 
sk top publishing c'era. 
Con grande curiosità, per¬ 
ché sul piano professiona¬ 
le l'innovazione non è da 
poco: consente molti ele¬ 
menti di innovazione e 
dà spazio a nuove forma 
di creatività. 

E con grande interesse, 


perché a conti fatti l'inve¬ 
stimento promette grandi 
risparmi su tempi e costi 
di lavorazione. 

A organizzare il tutto è 
stata una nuova, dinami¬ 
cissima società, la Clow 
System School, che ha 
radunato al Centro Mera¬ 
vigli di Milano i rappre¬ 
sentanti di tutta l'editoria 
e, per tre ore, ha calamita¬ 
to la loro attenzione su u- 
no schermo gigante. Non 
con un film, ma con una 
dimostrazione dal vivo, 
in tempo reale, delle va¬ 
rie fasi di lavorazione e 
di impaginazione che un 
testo attraversa in una re¬ 
dazione attrezzata con il 
desk top publishing: dal 
testo fornito da un colla¬ 
boratore esterno alla pelli¬ 
cola da consegnare allo 
stampatore. 

Allo schermo era colle¬ 
gato un Macintosh. E al 
Macintosh era collegato 
un Ibm. La storia comin¬ 
cia proprio da un dischet¬ 
to Ibm, che immaginia¬ 
mo venga portato in reda¬ 
zione da un collaboratore 
esterno, che non ha il 
Macintosh e scrive gli ar¬ 
ticoli sul suo computer, 
un Ibm appunto. 

Una soluzione è quella 
di consegnare a una datti¬ 
lografa la stampata del 
suo testo, facendoglielo 
ricopiare; la trafila cioè 
che subisce un qualunque 
dattiloscritto. L'alternati¬ 
va è quella di avere in re¬ 
dazione un Ibm collegato 
a un Macintosh e di uti¬ 
lizzare un programma di 
trasferimento per portare 
direttamente in pochi mi¬ 
nuti il testo Ibm in am¬ 
biente Macintosh. 

E’ quanto facciamo noi 
di Applicando ogni gior¬ 
no (e infatti eravamo noi 
di Applicando gli attori 
in scena al Centro Mera¬ 
vigli, ed era un servizio 
scelto a caso tra quelli 
della rivista in lavorazio- 

Richard Curtis . 
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ne quello che è stato im¬ 
paginato pubblicamente). 

Trasferito il testo, lo 
si è elaborato con Micro¬ 
soft Word e poi con 
Syllabae. Il che significa 
correzione del testo, ste¬ 
sura di titolo e somma¬ 
rio, sillabazione, format¬ 
tazione con corpi e carat¬ 
teri, evidenziazione dei 
neri e dei corsivi. 

Poi, rimpaginazione 
su PageMaker, che per 
quasi tutti gli spettatori è 
stato uno spettacolo nuo¬ 
vo e inatteso: una figura 
qui, un po' di testo lì, un 
ripensamento, una corre¬ 
zione, sguardo d'insieme, 
zoom su un particolare, 
girar di pagine, il tutto 
in grande scioltezza, con 
pochi tocchi del mouse. 
E poi, la correzione reda¬ 
zionale sull'impaginato, 
che corrisponde in lin¬ 
guaggio antico alla rilet¬ 
tura delle seconde bozze, 
con tanto di correzione i- 
stantanea degli errori. E 
infine, la stampa: che 
con uno strumento "da uf¬ 
ficio", qual è la Laser 
Writer, consente un'otti¬ 
ma risoluzione. Con uno 
strumento altamente pro¬ 
fessionale (e costoso) 
qual è la Lynotronic, per¬ 
mette una resa del livello 
di quella tipografica. 

Lo spettacolo è finito 
qui, e ha suscitato com¬ 
menti molto positivi, 
grande stupore e molto 
interesse. Perché, e qui la 
Clow System School ha 
fatto centro, di desk top 
publishing si sentiva par¬ 
lare ormai da tempo, ma 
non erano in molti ad a- 
vere veramente chiaro 
che cosa sia, come fun¬ 
zioni, quale configurazio¬ 
ne e quali competenze 
professionali richieda, 
quali costi e quali rispar¬ 
mi comporti. Anche l'edi¬ 
tore che, per il ragguarde¬ 
vole volume di lavoro 
prodotto, trova conve¬ 
nienza nell'uso di sistemi 
tipografici tradizionali. 


può essere fortemente 
motivato a integrarli con 
una serie di postazioni re¬ 
dazionali di editoria da ta¬ 
volo. Solo, non sapeva 
della loro esistenza, oppu¬ 
re si scontrava con la dif¬ 
ficoltà di attingere infor¬ 
mazioni concrete. 

La dimostrazione sul¬ 
l'uso dell'Apple Edit, co¬ 
munque, non è stata che 
la primissima fase di un 
complesso intervento che 
la Clow System School 
farà per la diffusione del¬ 
le nuove tecnologie: chi 
può essere interessato ad 
abbandonare i sistemi tra¬ 
dizionali, o a integrarli, 
va infatti incoraggiato e 
informato con un servi¬ 
zio completo. Innanzitut¬ 
to l'informazione: una 
consulenzapersonalizzata 
per studiare la possibilità 
e la convenienza dell'inse- 
rimento in redazione del 
desk top publishing; poi 
l'installazione delle mac¬ 
chine; infine, servizio 
questo che nessun altro è 
in grado di fornire, la for¬ 
mazione del personale 
che dovrà usare il desk 
top publishing: grafici e 
redattori. Ma non solo: 
poiché il momento termi¬ 
nale del ciclo di lavorazio¬ 
ne è la produzione di pel¬ 
licole per la stampa, e 


non tutti gli utenti sono 
in grado di acquistare una 
fotounità di elevatissima 
qualità, la Clow System 
School metterà a disposi¬ 
zione un servizio di stam¬ 
pa immediata da dischet¬ 
to. Per ulteriori informa¬ 
zioni rivolgersi alla 
Clow System School, 
Via Nino Bixio 4, Mila¬ 
no, tei. 02/2711714. 


In basso: un momento 
della dimostrazione di 
desk top publishing 
presentata dalla Clow 
e da Applicando. In alto: il 
direttore della rivista, 
Stefano Benvenuti, illustra 
al microfono cosa avviene 
sullo schermo, e il grafico 
Adeiio Barcella realizza 
rimpaginazione 
elettronica di un articolo. 
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H. Peckam-W. Ellis Jr-E Lodi: Il Basic e gli Ap¬ 
ple Il in pratica. Questo volume accompagna 
gradualmente l'utente, al quale non è richie¬ 
sta alcuna conoscenza matematica o infor¬ 
matica di base, dai primi approcci alla tastie¬ 
ra fino alla completa padronanza del compu¬ 
ter e della programmazione. E' il lettore a deci¬ 
dere se passare al successivo capitolo o ritor¬ 
nare ad approfondire quanto gli è stato appe¬ 
na spiegato. Pagg. 310, lire 28.000. 



W. Ettlin: Il Multiplan per il Macintosh. Oltre 
la pura e semplice descrizione del funziona¬ 
mento del foglio elettronico, introduce l'utente 
all'uso di uno strumento di lavoro integrato 
che permette di svolgere una quantità inso¬ 
spettabile di attività diverse in ogni area del la¬ 
voro d'ufficio o nella professione: modifiche, ta¬ 
gli, spostamenti, rimontaggi, dal bilancio di 
una società al campionato di calcio. Pagg. 
210, lire 26.000. 



G. Mainisi II Manuale ProDOS. Il ProDOS co¬ 
stituisce un significativo passo avanti rispet¬ 
to al diffuso ma ormai un po' invecchiato 
DOS 3.3. Questo manuale introduce ai nume¬ 
rosi e complessi aspetti del ProDOS, dedican¬ 
do particolare attenzione alla struttura ad al¬ 
bero delle directory, alla compatibilità con il 
DOS 3.3 e con il SOS e alla programmazione 
in Basic Applesoft sotto ProDOS. Pagg. 
200, lire 25.000. 



R. Person. Le meraviglie dell'animazione con 
gli Apple II. La creazione di animazioni realisti¬ 
che è uno degli obiettivi più ambiziosi per un 
utente di personal computer. Il lettore viene 
guidato alla realizzazione di alcune potenti uti¬ 
lity che gli consentiranno di produrre animazio¬ 
ni personalizzate. Alcuni programmi completi, 
inoltre, dimostrano come l’applicazione presen¬ 
tata consenta la realizzazione di giochi a livel¬ 
lo professionale. Pagg. 280, lire 24.000. 



Genitori 
nell’era 
del computer 


COMPUTER 

GRAPHICS 

CORSO DI 
PROGRAMMAZIONE 
STEVEN HARRINGTON 



McGraw-Hill 


PASCAL 

GUIDA PER 
PROGRAMMATORI 
OLIVIER LECARME 
JEAN-LOUIS NEBUT 



McGraw-Hill 


P. Scharf: Genitori nell'era del computer. In 

che modo è possibile servirsi del computer nel¬ 
l'educazione dei figli? In che misura il computer 
cambierà la scuola? Qual è il software più 
adatto a stimolare la creatività del bambino? 
A queste e altre domande Scharf dà risposte 
basate sulla sua esperienza in famiglia (4 figli 
maniaci del computer) e nelle scuole statuni¬ 
tensi. Pagg. 256, lire 19.000. 


S. Harrington: Computer Graphics. L'approc¬ 
cio seguito da Harrington rende accessibile il li¬ 
bro a un pubblico con basi matematiche ele¬ 
mentari e concatenando la spiegazione dei 
vari algoritmi in modo da portare il lettore an¬ 
che alla realizzazione di un package grafico 
ben costruito e basato su concetti di standar¬ 
dizzazione delle funzioni. Pagg. 520, lire 
39.000. 


O. Lecarme-J.L. Nebut: Pascal. Guida per 
programmatori. Il libro può essere usato per 
un corso intermedio da coloro che scrivono pro- 
rammi più avanzati, ma il suo fine principale 
di servire come libro di testo per l'autoap- 
prendimento, poiché offre una trattazione 
esauriente del Pascal e una descrizione fedele 
e precisa del linguaggio standardizzato dall'l- 
SÒ. Pagg. 292, lire 29.000. 













S. Kamins-M. Wafte: Programmazione uma¬ 
nizzata in Applesoft Riassume tutte le tecni¬ 
che che vengono comunemente impiegate da¬ 
gli esperti di software per rendere più amiche¬ 
voli i programmi. Vengono infatti affrontati 
tutti gli aspetti di queste tecniche: sia quelli in¬ 
terni al software, come routine a prova di erro¬ 
re o di formattazione dell'input, sia quelli ester¬ 
ni, come la documentazione e i manuali opera¬ 
tivi. Pagg. 208, lire 21.000. 





D. Duff: Guida al Macintosh. Fin dal primo ap¬ 
proccio, il Mac è molto amichevole, e offre sul 
video una scelta tra varie opzioni, rappresen¬ 
tate da icone. In questo modo l’utente può 
scegliere una o più di queste funzioni potendo 
tranquillamente ignorare ciò che avviene all'in¬ 
terno della macchina e superando così la natu¬ 
rale diffidenza che a volte i computer ispirano. 
Pagg. 224, lire 22.000. 





P. Cohen: Grafica e animazione con gli Apple 

H. Questo libro vuole guidare gli appassionali 
nella complessa materia della grafica e dell’a¬ 
nimazione, prendendoli per mano dai primi rudi¬ 
menti attraverso numerosi esempi e applica¬ 
zioni, fino a una completa comprensione dei 
principi e dei metodi della computer graphics. 
Gli esenpi sono applicati alla famiglia degli Ap¬ 
ple II: Il Plus, Ile, Ile. Pagg. 160, lire 17.000. 



G. Kane: Il manuale MC68000. La famiglia di 
questo microprocessore trova un utilizzo va¬ 
stissimo in workstation, sistemi CAD/CAM, 
sistemi di commutazione telematici, robot e 
controllori di processo, oltre che nei microcom¬ 
puter di recente realizzazione, come Macin¬ 
tosh, ecc. Questo manuale è una preziosa 
fonte di informazione per chi vuole cimentarsi 
con la programmazione in Assembler. Pagg. 
168, lire 16.000. 



H. Mullish-D. Kruger II Basic Applesoft. In 16 

capitoli, un metodo graduale che non presup¬ 
pone alcuna conoscenza di base. Tra gli argo¬ 
menti trattati: uso interattivo del computer, 
sintassi dei comandi DOS, formattazione del¬ 
l'input e dell'output, array, selezione e ordina¬ 
mento dei dati, grafica a bassa e alta risolu¬ 
zione, trattamento dei file su disco, debug¬ 
ging, riepilogo delle istruzioni, comandi efunzio- 
ni Applesoft. Pagg. 232, lire 19.000. 



T. Field: Come usare MacWnte e MacPaint 

Molto più di quanto facciano i manuali opera¬ 
tivi allegati ai programmi, questo volume sve¬ 
la ogni trucco dei due applicativi per Macin¬ 
tosh, spiegando ed esemplificando particolari 
tecniche di disegno e di gestione dei testi, sem¬ 
pre nell'ottica di un uso inteprato dei due pro¬ 
grammi. Pagg. 192, lire 22.000. 
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La memoria 
del futuro 

"Entro due anni i di¬ 
schi ottici si potranno in¬ 
cidere più volte". E' que¬ 
sta la previsione degli ad¬ 
detti ai lavori per quanto 
riguarda lo sviluppo di 
questo tipo di memorie 
applicate al personal com¬ 
puter. Ma cos’è realmen¬ 
te un compact disc e qua¬ 
li vantaggi porterà nel- 
rOffice Automation? Ri¬ 
ducendo il concetto si 
può dire che è un disco 
che ruota velocemente 
senza essere toccato dalla 
puntina ma che viene let¬ 
to dalla luce di un laser. 
Il primo sviluppo dei 
compact disc è stato nel 
settore musicale: da un la¬ 
to Televaia qualità del 
suono, dall'altra la possi¬ 
bilità del disco di ripro¬ 
durre la musica moltissi¬ 
me volte senza né perdere 
la definizione né dan¬ 
neggiarsi, ha spinto pro¬ 
duttori e consumatori ad 
adottare questa nuova tec¬ 
nologia. Nel mondo dei 
bit questo tipo di memo¬ 
ria non ha ancora trovato 
una collocazione ideale 
anche se rappresenta il fu¬ 
turo delle memorie di 
massa. Il limite, fino a 
oggi invalicabile, è firn- 


possibilità di poter re¬ 
gistrare, cancellare o mo¬ 
dificare i dati memorizza¬ 
ti: in pratica, con un per¬ 
sonal computer è possi¬ 
bile solo accedere in lettu¬ 
ra a un disco dati prece¬ 
dentemente registrato con 
un’apposita apparecchia¬ 
tura, senza alcun altro ti¬ 
po di intervento. 

Ma se le massicce ricer¬ 
che che i grandi.produtto- 
ri stanno effettuando in 
questo senso manterran¬ 
no le previsioni, nel giro 
di due anni scompariran¬ 
no i vari disk drive, flop¬ 
py, e dischi rigidi. Basti 
pensare che un solo com¬ 
pact disc è capace di con¬ 
tenere 540 Mb di infor¬ 
mazioni (l'equivalente di 
oltre 700 microfloppy da 
3,5" con capacità di 
800Kb), qualsiasi esse 
siano: da normali dati a 
suoni, grafici e immagi¬ 
ni. Senza contare la velo¬ 
cità di accesso ai dati e 
l’indistruttibilità di que¬ 
sto tipo di memoria. 

In Italia non stiamo a 
guardare: all'università di 
Milano (ne parliamo più 
diffusamente nell'articolo 
di pag.78) un gruppo di 
studenti ricercatori ha me¬ 
morizzato su compact di¬ 
sk un’intera enciclopedia, 
suoni e immagini com¬ 


prese, a cui accedere attra¬ 
verso un Macintosh. 

Un Cd-Rom dedicato a 
contenere tutte le in¬ 
formazioni sulle 60 mila 
ditte italiane che espor¬ 
tano o importano pro¬ 
dotti è stato invece svi¬ 
luppato dalla Cerved, la 
società nazionale di infor¬ 
matica delle Camere di 
Commercio. Il Cd-Rom 
sull’import-export italia¬ 
no è battezzato SDOE e 
contiene circa 550 milio¬ 
ni di caratteri, pari a 150 
mila pagine stampate 
raccolte in un diametro di 
12 centimetri.In termini 
di ricerca, invece, la Mi¬ 
crosoft è forse la società 
che più spinge in questo 
senso: in America ha riu¬ 
nito a Seattle oltre duemi¬ 


la santoni del settore per 
la seconda conferenza 
mondiale sul CD-ROM; 
in Italia, invece, ha 
formato a una joint ven¬ 
ture, insieme a Olivetti e 
Seat, che a sua volta ha 
dato vita alla Eikon Cor¬ 
poration, una società con 
sede in Roma che da mag¬ 
gio inizierà un’attività de¬ 
dicata allo sviluppo di ap¬ 
plicazioni su CD-ROM a 
livello europeo. Ma a li¬ 
vello di hardware, cosa 
c'è di disponibile per il 
momento? In teoria tutti 
i produttori di lettori di 
Compact Disc già presen¬ 
ti sul mercato hi-fi sono 
interessati a questo nuo¬ 
vo risvolto dei loro pro¬ 
dotti. 

Prossimamente Appli¬ 
cando pubblicherà un am¬ 
pio servizio su questa 
nuova tecnologia. 

Tutti i modi 
per stampare 

Rinnovata sotto tutti 
gli aspetti la gamma di 
stampanti targate Manne- 
smann Tally. La serie 80 
a matrice di punti può 
contare su due nuovi mo¬ 
delli, MT 87 a 80 colon¬ 
ne e MT88 a 136 colon¬ 
ne, dedicate a problemati¬ 
che industriali o di spor¬ 
tello, che sono definite le 
piccole ma versatili della 
linea Mannesmann Tal¬ 
ly. Entrambe offrono una 
velocità di stampa di 200 







Dizionario di informatica 
Nell’ultimo decennio l’informatica 
ha conosciuto una fase di espansio¬ 
ne notevole, tale da coinvolgere 


molti giovani non "addetti ai lavo¬ 
ri". E’ pertanto molto sentita la ne¬ 
cessità di avere a disposizione un 
dizionario particolarmente orienta¬ 
to alla terminologia informatica, 
il quale riporti non solo i vocabo¬ 
li e le locuzioni del gergo, ma for¬ 
nisca anche il significato particola¬ 
re attribuito nel contesto informa¬ 
tico. Una tale opera sarà quindi uti¬ 
le sia allo studente che per la pri¬ 
ma volta si accosta alla letteratura 
informatica anglosassone, sia allo 
studente applicativo che voglia 
rendersi conto dei termini usati da¬ 
gli "iniziati", sia al tecnico che a - 
bituato ad usare i termini in lin¬ 
gua originale voglia rendere più 
appropriato il proprio modo di e- 
sprimersi in italiano. 

Autore Michel Ginguay, editore 
Masson, prezzo 33 mila lire. 


caratteri per secondo in al¬ 
ta velocità, che scende a 
50 in High-Quality, e 
possono essere collegate 
sia in seriale che in paral¬ 
lelo. Con una testina a 
nove aghi possono essere 
dotate in opzione di nu¬ 
merosi font di caratteri e 
di un caricatore automati¬ 
co di fogli. I prezzi, che 
verranno sottoposti al 
cambio del giorno dell’ac¬ 
quisto, sono di 1.522 
marchi tedeschi per la 
MT87 e 1.831 per la 
MT88. 

Di 24 aghi è invece do¬ 
tata la MT330, stampan¬ 
te seriale a 136 colonne 
che affianca a una eccel¬ 
lente qualità di stampa e- 
levati volumi di docu¬ 
menti. 300 caratteri per 
secondo in alta velocità, 
ha un prezzo di listino di 
4.430 marchi tedeschi. 

Sempre a matrice di 
punti, ma dedicato ad ap¬ 
plicazioni Heavy duty, il 

Piccole e versatili le 
due nuove stampanti 
MT87/MT88 (a destra). 
Heavy Duty, invece, la 
MT 50 presentata dalla 
Mannesmann Tally al 
Sioa di aprile. 


modello MT50 offre pre¬ 
stazioni professionali che 
rendono più agili settori 
come il self Service ban¬ 
cario o dove il contatto 
con il pubblico è funzio¬ 
ne essenziale. Con una te¬ 
stina a nove aghi può rag¬ 
giungere, in funzione del¬ 
la versione, una velocità 
di stampa di 400 caratteri 
per secondo. Sempre a se¬ 
conda del modello di MT 
50 le possibilità si esten¬ 
dono alla stampa di Ma¬ 
crocaratteri e Codici a bar¬ 


re. Completa di taglieri¬ 
na incorporata, la MT 50 
costa 7.200 marchi nella 
versione parallela, 7.300 
marchi dotata di Letter 
Quality e, con codice a 
barre, 7.350 marchi. 

A getto d’inchiostro è 
invece la MT 90 che con 
una testina a 24 ugelli 
raggiunge una velocità di 
220 caratteri per secondo 
in alta velocità e di 110 
in alta definizione senza 
superare i 45 decibel di 
rumorosità. Disponibile 


in allacciamento seriale o 
parallelo, la MT 90 ha 
un prezzo di listino di 
1.548 marchi tedeschi. 

Desktop MT 910 è in¬ 
fine il nome della macchi¬ 
na studiata con la tecnolo¬ 
gia laser. Compatibile 
con i protocolli Epson 
FX, Proprinter Ibm, HP 
Laserjet, Qume e Diablo, 
la laser della Manne¬ 
smann Tally costa 9.152 
DM. Per ulteriori infor¬ 
mazioni è possibile rivol¬ 
gersi direttamente alla 
Mannesmann Tally, via 
Borsini 6, Corsico (MI), 
telefono 02/4502850. 

Un piccolo 
grande Ibm 

Un compatibile che gi¬ 
ra almeno il 30% più ve¬ 
loce di un normale Ibm. 
Non è il solito clone di 
Taiwan, ma è un Apple 
II Plus, oppure un Ile o, 
ancora, un IIGS dotato 
del sistema Little Blue. 
Parafrasando il sopranno¬ 
me del colosso america¬ 
no, chiamato confiden¬ 
zialmente Big Blue, que¬ 
sta nuova scheda permet¬ 
te una reale e completa 
compatibilità con le mac¬ 
chine che lavorano in am¬ 
biente operativo Ms- 
Dos, ma non solo. 950 
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dollari circa sono suffi¬ 
cienti per entrare in pos¬ 
sesso di una scheda che 
contiene un microproces¬ 
sore 8086 a 7Mhz (3,4 
volte più veloce dei nor¬ 
mali Ibm), 640 Me¬ 
gabyte di Ram e di un dri¬ 
ve da 5,25 " per leggere di¬ 
schi formattati Ibm. 

Il vantaggio peculiare 
di questo drive è che per¬ 
mette di lavorare con en¬ 
trambe le formattazioni, 
quelle classiche Apple e 
quelle Ms-Dos. 

Questo significa anche 
che è possibile formatta¬ 
re i dischetti Apple a 
360Kb invece dei 140 
Kb, limite delle unità di 
lettura della mela. 

Sempre per quanto ri¬ 
guarda le memorie di 
massa, è possibile, con i 
drive Apple dedicati ai 
disk da 3,5", leggere i 
microfloppy formattati 
Ibm. Ancora, con un 
Hard Disk SCSI collega¬ 
to è possibile suddividere 
il disco rigido in una par¬ 
tizione Ms-Dos e una 
ProDos o Pascal. 

Nessun problema per 
quanto riguarda le perife¬ 
riche: lavorando in Ms- 
Dos è possibile, per e- 
sempio, stampare con I- 
mage Writer piuttosto 
che con una Scribe. Uni¬ 
co limite, sotto Ms-Dos 
non è possibile lavorare 
in Apple Talk. 

Insomma, un prodotto 


rivoluzionario al quale 
Applicando dedicherà am¬ 
pio spazio nel prossimo 
numero. Per il momento 
è possibile ottenere ulte¬ 
riori informazioni alla I- 
ret Systems, via Emilia 
S. Stefano 32, Reggio 
Emilia, telefono 0522/ 
40415. 

Un word processor 
per archiviare 

Non è un database e 
non è un word-processor: 
può essere definito un 
word base, un'applicazio¬ 
ne, cioè, che dispone di 
un programma di scrittu¬ 
ra e di un programma di 
archiviazione uniti insie¬ 
me e interagenti tra loro. 
In pratica DeliMac, così 
è stato battezzato il pro¬ 
gramma,permette di lega¬ 
re una parola scritta con 
il word processor a un 
campo del database otte¬ 
nendo in questo modo u- 
na rielaborazione auto¬ 
matica dei dati archiviati. 

L'esempio applicativo 
per il quale è stato svilup¬ 
pato DeliMac potrà chia¬ 
rire ulteriormente il fun¬ 
zionamento del program¬ 
ma: si supponga di dover 
scrivere la delibera per il 
trasferimento di un pro¬ 
fessore presso un'altra fa¬ 
coltà; il programma ela¬ 
bora quanto scritto nel te¬ 
sto della delibera e proce¬ 
de alla cancellazione dal¬ 


l’archivio docenti del pro¬ 
fessore trasferito e inse¬ 
rendo in un archivio stori¬ 
co i movimenti di quella 
persona, ovviamente De¬ 
liMac non è limitato alla 
gestione delle delibere u- 
niversitarie ma può esse¬ 
re applicato in qualsiasi 
settore che presenti analo¬ 
ghe situazioni. 

DeliMac è prodotto e 
distribuito dalla Micro 
Progettazione Avanzata, 
piazza Merolli 44, Roma 
telefono 06/5235376, al¬ 
la quale è possibile rivol¬ 
gersi per ottenere ulterio¬ 
ri informazioni. 

Lo SCSI 
costa meno 

Non è il solito pesce: 
dal primo del mese di 
aprile l’Hard Disk SCSI 
Apple da 20 Megabyte è 
veramente sceso di prez¬ 
zo: da 2,5 milioni, come 
evidenziava il nuovo listi¬ 
no della mela iridata data¬ 
to 2 marzo, il costo per 
questa unità di memoria 
è diventato 2 milioni, I- 
va esclusa. Invariati i 
prezzi per gli altri dischi 
fissi della casa di Cuperti- 
no: 3,2 milioni per l'uni¬ 
tà a 40 Mb, 5 milioni 
per gli 80 Megabyte e 
2,8 milioni per l’unità a 
backup da 40Mb. 

Questi prezzi sono vali¬ 
di sia per la linea Macin¬ 
tosh sia per l’Apple IIGS 
che può sfruttare tutte le 
memorie rigide provviste 
di collegamento SCSI. 

Tml Pascal 
per il IIGS 

E’ da poco disponibile 
su Apple IIGS un nuovo 
compilatore, il TML Pa¬ 
scal, dotato di caratteristi- 
cheestremamente interes¬ 
santi, che dovrebbe ri¬ 
scuotere un grosso suc¬ 
cesso fra tutti gli appas¬ 
sionati di programmazio¬ 
ne. 

TML Pascal, che è di¬ 


venuto in breve tempo 
negli Stati Uniti un best 
seller per Macintosh, è di¬ 
sponibile sul GS in due 
diverse versioni. La pri¬ 
ma, si integra perfetta¬ 
mente nel sistema di svi¬ 
luppo APW prodotto dal¬ 
la Apple Computer, che 
mette a disposizione dei 
programmatori uno shell 
ed una serie di strumenti 
per lo sviluppo di appli¬ 
cazioni altamente profes¬ 
sionali. 

Consente fra l’altro di 
trasportare sull'Apple II 
GS programmi originaria¬ 
mente messi a punto su 
Macintosh con il sistema 
Tml Pacai. 

La seconda, invece, è 
in grado di funzionare in 
maniera completamente 
autonoma, e garantisce 
un completo accesso alle 
routine del Toolbox di 
Apple IIGS, fra cui la ge¬ 
stione di grafica e suono. 
I programmi scritti pos¬ 
sono quindi essere dotati 
di una classica interfaccia 
utente in stile Macinto¬ 
sh, con menù pull-down, 
finestre, box di dialogo, 
prevedendo un esteso uti¬ 
lizzo del mouse. In abbi¬ 
namento a TML Pascal, 
viene anche fornita una 
completa libreria di appli¬ 
cazioni in linguaggio 
sorgente, riguardanti in 
particolare numerosi e- 
sempi di chiamate al 
Toolbox, che possono es¬ 
sere utilizzate a scopo di¬ 
dattico, o incoiporate di¬ 
rettamente all'interno di 
programmi sviluppati da¬ 
gli utenti. 

TML Pascal ha un co¬ 
sto in Italia di L.339.000 
+ IVA (399.000 la ver¬ 
sione comprendente la 
Source Library). 

Per ulteriori informa¬ 
zioni e per richiedere il 
programma è possibile 
rivolgersi alla Hi-Tech, 
C.P. 891, Padova, tei. 
049/8750398, che lo im¬ 
porta e lo distribuisce in 
Italia. 
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iella scatola nera 


Potènza e semplicità fanno di’ÓMNIS 3 
uno dei migliori Data Base relazionali oggi disponibili. 
Senza alcuna conoscenza dei linguaggi 
di programmazione é possibile 
realizzare complesse applicazioni software per ógni 
esigenza del tuo lavoro. 

OMNÌS 3 ^disponibile in versione mono o multiutente 
per MACINTOSH, APPLE II GS, 
IBI#Pc/Xt/At e compatibili, OLIVETTI M24 e M28. 


nostri "Esperti OMNIS 3" potranno aiutarti nella realizzazione di una tua nuova 
applicazione o assisterti nell' uso e nella personalizzazione 
di una delle tante applicazioni già disponibili: 

Fatturazione • Magazzino • Bollettazione • Preventivazione 
Distinta Base • Ordini e Produzione • Computo metrico • Legge 373 
Contabilità Clienti/Forn. • Contabilità Generale • Contabilità Industriale 
Gestione Dentisti, Medici, Avvocati, Condomini, Videoteche, Palestre, 

Boutique, Assicurazioni, ecc. 



OMNIS 3'Plus 
nuova versione 
per MACINTOSH 


/ PROVA OMNIS 3 1 

/ Volete provare le eccezionali qualità j 

di questo potente programma ? I 

Richiedeteci una copia di "PROVA OMNIS 3" a £. 118.000 
Iva e spedizione compresa. Riceverete il programma originale | 
(limitato a 50 records) con un esauriente manuale, i 
L 1 importo verrà rimborsato in caso di acquisto di "OMNIS 3". 

OMNIS 3 é disponibile presso i migliori APPLE CENTER . 
Distribuito ed assistito in esclusiva in tutta Italia dà: ' 


Computer.. 


I 
I 
I 
I 

Via^hiagjDoni ^Z^^q^PIACENZ^-Je^ 0523/20626 J 









PUOI 

CONTINUARE 
A LOTTARE CON 
MIGLIAIA DI LINEE 
DI PROGRAMMA 
PER LE TUE 
APPLICAZIONI. 

Sviluppare applicazioni scientifiche richiede 
creatività. 

Scrivere i programmi per renderle esecutive 
richiede tempo e fatica. 

Ma da oggi non più, perchè abbiamo risolto il 
problema della programmazione scientifica e di 
laboratorio. 


OPPURE PUOI 
USARE LabVIEW. 

Il linguaggio di programmazione perfetto. 

Immagina un software dove i diagrammi 
a blocchi sono realmente un programma 
eseguibile. 

Immagina di eseguire ap plicazioni e simulazioni 
attraverso pannelli frontali che appaiono e 
funzionano come strumenti direttamente sul video! 

Immagina moduli software riutilizzabili che 
possono controllare i tuoi strumenti, in q ualsiasi 
ap plicazione. Programmi per acquisizione dati, 
trattamento dati, signal processing, analisi, 
simulazioni di processo, conversioni e visualizzazioni. 

Immagina un ambiente di programmazione così 
potente ea efficace che la tua produttività può essere 
misurata in ore invece di giorni. 

E con le possibilità di Macintosh, LabVIEW è 
nato! Test automatici, di misura e simulazione non 
sono mai stati così facili e veloci. 


Distributrice esclusiva per l’Italia: 

via Tolstoi, 86 - 20098 San Giuliano Milanese (MI) 
LabVIEW una nuova era nella programmazione. telefono 02/98491071 - telex 322830 

Per richiedere la documentazione ed eventuali informazioni scrivere o telefonare a Winline. 
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MONITOR 


Desktop Publishing, grafica, ma anche pacchetti 
integrati, programmi musicali o di ingenieria: 
con un monitor a 20 pollici è meglio. 


A piena pagina 


L’inarrestabile evoluzione del setto¬ 
re del personal computing continua 
a creare nuovi spazi per un mercato 
mai saturo di novità in linea o paral¬ 
leli all’elaboratore personale. 

Il mercato dei monitor ne è un sin¬ 
tomatico esempio. Prima, almeno 
per il mercato dell'home computing, 
ci si poteva accontentare del normale 
televisore. Il business, invece, neces¬ 
sitava di una visualizzazione più pro¬ 
fessionale ma il monitor non rappre¬ 
sentava una caratteristica peculiare di 
un sistema: fosfori verdi o arancione 
era forse l’unico dubbio. 


La grafica, e soprattutto la busi¬ 
ness graphics, ha incrementato la ri¬ 
chiesta di prestazioni adeguate a esi¬ 
genze dedicate. Quindi, da un lato i 
produttori di personal computer affi¬ 
navano le prestazioni in questo sen¬ 
so delle proprie macchine, dall’altro 
gli stessi produttori insieme alle ter¬ 
ze parti si contendevano il primato 
in questa nuova battaglia di pixel 
per garantire il pieno sfruttamentp 
delle capacità offerte dai personal 
computer. 

Da questa prima analisi si può ca¬ 
pire subito come sia il software a 


spingere un'evoluzione dell’hardwa- 
re. Per normali applicazioni gestio¬ 
nali, o di spreadsheet o, ancora, di da¬ 
tabase poteva essere sufficiente un 
normale video, poi, come già detto, 
i primi programmi grafici, i pro¬ 
grammi integrati, soprattutto legati 
a quella nuova interfaccia macchina- 
utente a finestre e, non ultimo, il 
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Desktop Publishing, hanno stimola¬ 
to la fantasia dei produttori. Non a 
caso grafica, gestione a finestre e De¬ 
sktop Publishing sono fra le innova¬ 
zioni introdotte dal Macintosh, e 
non a caso il monitor a 9 pollici del¬ 
la macchina di Cupertino è stato 
l’unico oggetto di forte critica critica 
fatta a questo personal computer. In 
effetti, se da un lato l’alta risoluzio¬ 
ne con le numerose possibili tonali¬ 
tà di grigio di visualizzazione si po¬ 
neva come valida alternativa ai fosfo¬ 
ri, dall'altra il colore e la grandezza 
giocavano a sfavore della nuova mac¬ 
china. 

Oggi, però, è possibile contare su 
diverse soluzioni che incrementano 
la produttività di Macintosh sotto il 
profilo di una più adeguata visualiz¬ 
zazione. A parte il recente annuncio 
da parte della Apple che, fra le altre 
novità, ha presentato un monitor a 
colori RGB in alta risoluzione per il 
Macintosh II, sono già disponibili 
prodotti delle terze parti dedicati che 
ampliano le normali dimensioni del 
video del Mac. Sono i cosiddetti mo¬ 
nitor a piena pagina, in grado cioè di 
visualizzare un'intera pagina nel for¬ 
mato naturale. 

Applicazioni 

Senza dubbio, il Desktop Publi¬ 
shing e le applicazioni grafiche in 
genere possono trarre i vantaggi 
maggiori dall'utilizzo di uno di que¬ 
sti monitor. Il Macintosh è una gran¬ 
de macchina, ma lavorare con preci¬ 
sione di punti e millimetri su una vi¬ 
suale di nove pollici non è facile. La 
possibilità di lavorare su una pagina 
intera a grandezza naturale evita i 
lunghi e noiosi scrolling del video 
così come diventa possibile vedere 
realmente una pagina nel suo insie¬ 
me in dimensioni non miniaturizza¬ 
te. Inoltre, i nuovi programmi di im¬ 
paginazione permetteranno di lavora¬ 
re contemporaneamente su due pagi¬ 
ne affiancate, operazione che con le 
dimensioni del normale monitor del 
Macintosh non è possibile. 

Analogo discorso per le applicazio¬ 
ni grafiche di altro tipo: programmi 
dedicati all'ingegneria, per esempio, 
o all'architettura, o più semplicemen¬ 
te, disegni realizzati con programmi 
come MacDraw, MacDraft o il recen¬ 
te Cricket Graph, trovano indubbio 
giovamento dall'utilizzo di un moni¬ 
tor a piena pagina. 

E per chi non ha interesse nella 


grafica, che rappresenta un ruolo se¬ 
condario nella sua attività? Non im¬ 
porta. Uno schermo di questo tipo è 
in grado di incrementare notevolmen¬ 
te la produttività anche in altre appli¬ 
cazioni. Prendiamo, per esempio, un 
programma integrato, un program¬ 
ma cioè che raccoglie in un unico 
pacchetto diverse applicazioni. Con 
un monitor con ampie capacità di vi¬ 
sualizzazione è possibile realmente 
lavorare e bene, con diversi file di 
vario tipo. Per fare un esempio in 
sintonia con il mese di maggio, 
prendiamo il caso di un amministra¬ 
tore che, come ogni anno, deve sten¬ 
dere la relazione al bilancio dell'eser¬ 
cizio passato. Con uno spreadsheet è 
possibile, con delle semplici formu¬ 
le, procedere a una riclassificazione 
dal punto di vista gestionale del bi¬ 
lancio. Poi i dati più importanti ven¬ 
gono trasformati in grafico in un'al¬ 
tra parte dello schermo. A questo 
punto un'ultima finestra di word pro¬ 
cessor può essere aperta per scrivere 
la relazione con un'immediata visio¬ 
ne dei dati per fare le considerazioni 
della gestione passata. Tutto questo, 
raccolto in 9 pollici, implicherebbe 
un continuo richiamo delle varie ap¬ 


plicazioni o, per gli acrobati del 
mouse, il dimensionamento delle tre 
finestre ridotte a un terzo dello scher¬ 
mo con la conseguente necessità di 
un continuo scorrimento per la vi¬ 
sualizzazione dei dati. 

Altri esempi possono essere fatti 
per evidenziare l'utilità di un moni¬ 
tor di questo tipo: dalla contabilità, 
alla programmazione, alla composi¬ 
zione musicale e a ogni altro settore 
che implichi il frequente lavoro su fi¬ 
nestre multiple. 

Tre alternative 

Applicando offre una passerella dei 
tre prodotti più significativi oggi di¬ 
sponibili anche in Italia: MegaScre- 
en, prodotto dalla MicroGraphic Ima- 
ges e importato dalla Anfrel Informa¬ 
tica, Radius FDP, distribuito dalla I- 
ret Systems di Reggio Emilia e The 
Big Pitture della E-Machines, che 
verrà probabilmente distribuito dalla 
Elcom di Gorizia. Per ogni modello 
abbiamo raccolto descrizione e carat¬ 
teristiche tecniche nei riquadri di que¬ 
ste pagine. 

Altre indiscrezioni sono trapelate 
dai produttori: per esempio l'an- 
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nuncio di due monitor in bianco e 
nero, rispettivamente da 15 e da 19 
pollici, targati Abaton, distributore 
Elcom, e di altri due modelli dedicati 
al Macintosh II uno dei quali a colo¬ 
ri, che verranno distribuiti dalla An- 
frel Informatica. 

• MegaScreen 

Prodotto dalla MicroGraphic Ima- 
ges, in Italia è stato presentato dal di¬ 
stributore italiano, la Anfrel di Firen¬ 
ze, in occasione dello scorso Smau. 
Da allora, la linea MegaScreen si è 
arricchita di due nuovi modelli, Me¬ 
gaScreen II nella versione per Mac 
Plus e 512Kb/800 e nella versione 
dedicata al nuovo SE, e di altri optio¬ 
nal. Le caratteristiche di base sono 
le stesse per tutti i modelli: display 
1000x900 pixel con una densità di 
70 pund per pollice, 19,5 pollici di 
area visiva e orientamento orizzonta¬ 
le. Il vecchio Megascreen I è sceso 
di prezzo: costa al pubblico 4,350 
milioni Iva esclusa, completo di due 
schede di alloggiamento dove posso¬ 
no essere inseriti, anche in un secon¬ 
do momento, un hard disk interno da 
20Mb e un coprocessore matemati¬ 
co. Il disco rigido ha un prezzo di li¬ 


stino di 1,6 milioni mentre il copro¬ 
cessore, un Intel 68881, costa 700 
mila lire sempre Iva esclusa. Anche 
Il MegaScreen II, sia nella versione 
per Plus e 512/800 sia in quella dedi¬ 
cata al nuovo SE, può essere com¬ 
pletato dal coprocessore matematico; 
il costo con questa opzione non cam¬ 
bia. Il prezzo di listino è per entram¬ 
be le versioni di 3,6 milioni Iva e- 
sclusa completo del software Mega- 
Screen 7. Questo programma permet¬ 
te due interessanti funzioni: la prima 
consente di lavorare in contempora¬ 
nea con i due schermi, il MegaScre- 
en e quello del Macintosh, la secon¬ 
da, in una rete AppleTalk, ha una 
funzione di E-Mail locale, vale a di¬ 
re che richiamando dal menù mela 
questa funzione è possibile mandare 
e ricevere messaggi tra i Macintosh 
collegati. Ultima opzione, un modu¬ 
lo che consente di estrarre un segna¬ 
le televisivo nel formato Pai per ave¬ 
re un'uscita su un altro monitor o su 
un videoregistratore o, ancora, su un 
videoproiettore. Il costo di questo 
modulo è di 290 mila lire Iva esclu¬ 
sa. Per ulteriori informazioni: An¬ 
frel Informatica, via Masaccio 50, 
Firenze. Telefono 055/2477788. 


• Radius 

Il firmware di questo monitor è o- 
pera di Andy Hertzfeld, il creatore 
dell'appicazione Switcher. La novità 
introdotta da questo schermo è la 
possibilità di lavorare contemporane- 
mante sul monitor Radius e su quel¬ 
lo Macintosh come fossero una cosa 
unica. Battezzato FDP, acronimo di 
Full Page Display, presenta, al con¬ 
trario degli altri modelli, un orienta¬ 
mento verticale. 

L’area visiva è di 18 pollici con 
un capacità di 640x864 pixel con u- 
na densità di 77 dpi. Particolare inte¬ 
ressante del firmware di questo moni¬ 
tor, contenuto nella Rom della mac¬ 
china, è un pannello di controllo pro¬ 
prio dello schermo e trasparente con 
qualsiasi applicazione: è possibile de¬ 
finire delle opzioni di visualizzazio¬ 
ne come la grandezza della freccia del 
mouse e delle barre dei menù, defini¬ 
re se si vuole una visualizzazione so¬ 
lo sul monitor Macintosh, solo sul¬ 
lo schermo Radius o su entrambi e, 
in quest'ultimo caso, se lo schermo 
Radius è collocato alla destra o alla 
sinistra del Macintosh definendo i- 
noltre la linea orizzontale dell'imma- 
gine che passa sui due schermi. 

Da fine giugno sarà possibile ag¬ 
giungere in opzione alla scheda del 
monitor due microprocessori. Un 
Motorola 68020 in grado di aumenta¬ 
re la velocità di esecuzione in misu¬ 
ra del 300-400% e un Motorola 
68881, coprocessore aritmetico per 
velocizzare i ricalcoli numerici da 50 
a 100 volte. Il monitor Radius costa 
3.950 milioni iva esclusa.Per ul¬ 
teriori informazioni: Iret System, 
via Emilia S.Stefano 38, Reggio E- 
milia, telefono 0522/485846. 

• The Big Picture 

Moltiplicate il normale monitor 
per quattro volte e mezzo per ottene¬ 
re le dimensioni visive di The Big 
Picture. Questo lo slogan pubblicita¬ 
rio studiato dalla E-Machines per il 
lancio del proprio monitor per Ma¬ 
cintosh. The Big Picture, come il 
MegaScreen, ha un orientamento o- 
rizzontale. L'area visiva è di 17 polli¬ 
ci, con 1024 x808 pixel e una densi¬ 
tà di 80 punti per pollice contro i 72 
propri del monitor del Macintosh. In 
Italia il probabile distributore sarà la 
Elcom, corso Italia 149, Gorizia, te¬ 
lefono 0481/30909 alla quale è pos¬ 
sibile rivolgersi per ottenere ulterio¬ 
ri informazioni. 

Mario Magnani 
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METEOROLOGIA 


Sia il professionista sia il dilettante troveranno in Stazione Meteo 
un utile compagno di lavoro per l’osservazione meteorologica 
e la raccolta dei dati: provvede infatti a organizzare 
le informazioni sulle condizioni del tempo, 
tracciando e stampando i relativi grafici e prospetti. 


Se non sarà sereno 
si rasserenerà... 














Volete sapere con esattezza quanta 
neve, o quanta pioggia, sia caduta in 
totale l'anno passato? Per avere dati 
sicuri vi basterà consultare Stazione 
Meteo. Questo programma è uno 
strumento analitico e didattico desti¬ 
nato sia a chi si interessa seriamente 
al tempo sia a chi lo fa per pura cu¬ 
riosità. Produce in forma convenien¬ 
te prospetti stampati, grafici delle 
condizioni atmosferiche e compendi 
di dati. 

Stazione Meteo consta di due pro¬ 
grammi in Basic, Stazione Meteo 
(listato 1) e Meteo.Grafici (lista¬ 
to 2) più una routine in linguaggio 
macchina, Cursor.Bar (listato 3) e 
una tavola delle figure, Meteo.Figu- 
re (listato 4). Stazione Meteo ge¬ 
stisce soprattutto l’immissione e l'e¬ 
diting dei dati, i prospetti sullo 
schermo e sulla stampante e gli utili 
sommari delle condizioni del tempo. 
Meteo.Grafici è un programma auto¬ 
nomo che visualizza sullo schermo 
Hi-Res grafici dei dati meteorologici 
giornalieri o mensili. Potete salvare 
i diagrammi per vederli e stamparli 
in qualsiasi momento. E' possibile 
tracciare simultaneamente su uno 
stesso grafico due parametri meteoro¬ 
logici qualsiasi ai fini del confronto 
o della correlazione. Meteo Grafici 
consente un miglior risultato a chi u- 
tilizza schede d'interfaccia stampante 
in grado di riversare la grafica, e pro¬ 
duce limpide immagini grafiche sui 
monitor monocromatici o a colori. 

Entrambi i programmi offrono la 
selezione delle opzioni mediante cur¬ 
sore a barra inversa. In tutte le parti 
del programma sono disponibili op¬ 
zioni di arretramento o di uscita per¬ 
ché si possa ovviare rapidamente al¬ 
l’errore. Inoltre si possono scegliere 
drive facoltativi se si vogliono con¬ 
servare i dati esclusivamente su un 
dischetto dati. La rapida introduzione 
dei dati e il facile editing rendono 
questi programmi molto amichevoli 

Come procurarsi 
i dati meteo 

Vi chiederete forse come sia possi¬ 
bile procurarsi i dati sul tempo sen¬ 
za disporre di un osservatorio meteo¬ 
rologico personale. Fortunatamente 
la maggior parte dei dati è disponibi¬ 
le telefonando al servizio di previsio¬ 
ne del tempo della SIP (consultate 
favanti elenco della guida telefonica 
della vostra città per sapere il nume¬ 
ro di telefono a cui rivolgervi). 


Come si usa 
Stazione Meteo 

Quando fate RUN STAZIO- 
NE.METEO viene caricata dall'inter¬ 
no del programma in Basic la routi¬ 
ne in linguaggio macchina, CUR¬ 
SOR.BAR. Viene visualizzata la pa¬ 
gina d'intestazione e un messaggio 
vi invita a premere Return per conti¬ 
nuare. Dopo una breve pausa per la 
lettura dei dati viene visualizzato il 
menù principale. Vediamo ora le 
opzioni principali. 

• L’introduzione dei dati 

Quando compare il menù principa¬ 
le è evidenziata l’opzione Introdu- 
ci/mod. dati meteo. Accettatela pre¬ 
mendo Return. La scelta viene sem¬ 
pre fatta premendo il tasto Return 
quando la barra inversa è sopra la 
scelta del menù che volete eseguire. 
Per ogni menù la scelta di default è 
quella più logica per l’operazione 
normale. Potete scorrere lungo il me¬ 
nù con le frecce (in su, in giù, sini¬ 
stra e destra). 

Scegliete un mese con l’opzione 
Introduci/mod. dati meteo. Dopo il 
prompt DATA alla base dello scher¬ 
mo introducete il giorno del mese. I 
numeri non validi non saranno accet¬ 
tati, e quindi sarebbero rifiutati, per 
esempio, 30 febbraio e 31 novem¬ 
bre. Dopo aver introdotto la data in- 
roducete le ultime due cifre per un 
anno compreso fra il 1980 e il 
1999. Gli anni al di fuori di questi li¬ 
miti vengono rifiutati. Premendo 
Return prima di aver battuto l’im¬ 
missione dell’anno sareste riportati 
al menù di scelta del mese. 

Stazione.Meteo crea nomi di file 
nella forma MMM.AA, dove MMM 
è il nome di tre lettere del mese e A- 
A è l'anno di due numeri che avete 
appena introdotto. Questa informa¬ 
zione è unica per ciascun file creato. 

Quando è stata introdotta la data il 
file viene letto sul dischetto. Se non 
c’è alcun file per quei dati ne viene 
creato uno, e un messaggio ve ne dà 
notizia mentre l’operazione è in cor¬ 
so. 

Poi potete introdurre cinque tipi di 
dati meteorologici: 


1. Temperatura in gradi Fahrenheit 

2. Pressione barometrica in pollici 
di mercurio 

3. Nuvolosità espressa in percentua¬ 
le 

4. Pioggia o neve in pollici 


5. Direzione del vento in otto punti 
mnemonici della bussola e velocità 
del vento in miglia orarie (figura 
1 ). 


Sia la temperatura sia la pressione 
hanno una massima e una minima, 
e quindi c’è un totale di nove introdu¬ 
zioni che si possono fare per ciascu¬ 
na data. Se non volete immettere da¬ 
ti per una particolare voce potete pe¬ 
rò avanzare, premendo Return, al 
campo seguente. Premendo Esc in 
qualsiasi momento si metterà il cur¬ 
sore sulla precedente voce di dati, 
tranne, naturalmente, quando il cur¬ 
sore è già alla prima voce (nel qual 
caso un bip vi informa che non pote¬ 
te procedere oltre in quella direzio¬ 
ne). 

• I limiti dei dati 

- Temperatura . Ogni introduzione 
di dati accetta una fascia di valori 
(queste fasce non sono elencate sullo 
schermo perché è improbabile che 
gli estremi vengano mai superati). 
Le temperature vanno da -30°F a 
120°F. Se risiedete a Phoenix o a Gi- 
la Bend, in Arizona, può darsi che 
sia il caso di ritoccare in su questi li¬ 
miti di qualche grado, e se abitate in¬ 
vece a Point Barrow, in Alaska, può 
essere il caso di ritoccare in giù di 
qualche grado i limiti inferiori. 

- Pressione barometrica. La fascia 
della pressione barometrica va da 
28,0 a 31,5 pollici di mercurio. Que¬ 
sti limiti sono relativi alle pressioni 
corrette al livello del mare. 

- Nuvolosità. Il sommario mensi¬ 
le della NOAA dà un valore della lu¬ 
ce solare misurato da 0 a 100%. Per 
calcolare il valore di nuvolosità ba¬ 
sta sottrarre da 100 il valore della lu¬ 
ce solare. Non introducete per questo 
valore numeri negativi. I numeri de¬ 
cimali vengono troncati alla virgola. 

- Precipitazioni. Stazione Meteo 
accetta livelli di precipitazione da 0 
a 30 pollici. Questa fascia dovrebbe 
abbracciarè la maggior parte delle 
condizioni di caduta di pioggia e ne¬ 
ve. 

- Direzione del vento. I valori di di¬ 
rezione del vento corrispondono agli 
otto punti della bussola: N, NE, E, 
SE, S, SW, W, NW. Quando si in¬ 
troduce questo dato si devono usare 
le maiuscole. La direzione del vento 
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può essere il fattore più difficile per 
cui procurarsi informazioni affidabi¬ 
li. La soluzione ottimale è di usare 
la direzione della massima velocità 
del vento nel corso del giorno, in 
quanto è questa la direzione più forte 
del vento durante il giorno e rappre¬ 
senta probabilmente il tipo d'infor¬ 
mazione che vi serve. 

- Velocità del vento . Potete into- 
durre una velocità massima del ven¬ 
to di 150 miglia orarie. Il limite 
massimo della fascia viene talvolta 
provato dagli abitanti della costa del 
Golfo durante gli uragani e da quelli 
di Boston nei giorni ventosi di feb¬ 
braio. 

• Le caratteristiche di editing 

Durante l'introduzione dei dati po¬ 
tete andare con Esc a qualsiasi cam¬ 
po per editarlo. Mentre il cursore è 
su un campo viene visualizzato il va¬ 
lore corrente per quel campo. Si pos¬ 
sono allora battere nuovi dati, in so¬ 
stituzione del vecchio valore. Per pu¬ 
lire tutti i campi usate il comando C 
(pulisci i campi). Il simbolo di o- 
missione ( A ) rappresenta il tasto 
Control; pertanto A C significa 
CTRL-C. 

Per introdurre i dati di un altro 
giorno basta premere A E (notate che 
se premete A E nel mezzo di un record 
incompleto i dati correnti vanno per¬ 
duti). Una linea di input chiede la da¬ 
ta che volete editare. Introducete la 
data. La linea di input sparisce e ven¬ 
gono visualizzati i dati relativi a 
quella data, pronti per l'editing o per 
l'osservazione. 

Di mano in mano che la freccia si¬ 
nistra spazia alfindietro, cancella o- 
gni carattere su cui passa, fino al pri¬ 
mo carattere del campo di input. Se 
cercate di arretrare ulteriormente vie¬ 
ne emesso un bip. 

Quando ultimate l'introduzione per 
tutti i nove campi compare un altro 
menù con tre opzioni: Introduci altri 


dati, Salva dati sul disco e Menù 
principale. Introduci altri dati non fa 
che incrementare il giorno e prose¬ 
guire con l'introduzione dei dati. Sal¬ 
vi dati sul disco salva il file corrente 
sul disco e poi vi riporta alla data 
successiva da introdurre. A questo 
menù si può accedere in qualsiasi 
momento battendo A Q (Fine). Nel¬ 
l'opzione Introduci altri dati, quando 
sono stati introdotti i dati per l'ulti¬ 
mo giorno del mese (per esempio 31 
gennaio) viene presentato un altro 
menù. Potete salvare il mese corren¬ 
te e avanzare al mese seguente, resta¬ 
re nel mese corrente o uscire sul me¬ 
nù principale. Un breve sommario 
dei comandi di introduzione/editing è 
visibile nella tavola 1. 

• La generazione 

dei prospetti meteorologici 

Dopo aver introdotto, editato e sal¬ 
vato i vostri dati selezionate l'opzio¬ 
ne Menù principale. Per generare un 
prospetto evidenziate l'opzione Pro¬ 
spetti schermo/stampante e premete 
Return per andare al sottomenù Pro¬ 
spetti. Questo menù vi permette di 
scegliere il formato di output scher¬ 
mo o stampante o un sommario 
mensile. Il sommario mensile può 
essere emesso in entrambe le forme. 
Naturalmente potete tornare al menù 
principale. 

Scegliete la prima opzione del me¬ 
nù, Prospetti schermo. Scegliete u- 
na data d'inizio e una data finale per 
il prospetto. Questo prospetto visua¬ 
lizzerà in successione i dati per una 
serie di mesi, dal primo selezionato 
all'ultimo. E’ indispensabile sceglie¬ 
re un mese e un anno sia per la routi¬ 
ne FROM (da) sia per la routine TO 
(a). Le date vengono controllate per 
accertare che non cerchiate di esami¬ 
nare i mesi in ordine inverso o speci¬ 
ficare una fascia non valida. Per esa¬ 
minare un solo mese scegliete lo 
stesso mese per la prima e l'ultima 
data. Normalmente si osservano in 


Tavola 1. Caratteristiche di introduzione/editing 

Caratteristica 

Funzione 

A Q (Fine) 

Arresta l'introduzione e visualizza il menù Fine. 

A E (Editing) 

Edita qualsiasi data del mese corrente. 

A C (Azzera) 

Imposta su stringhe nulle tutti i dati visualizzati. 

<ESC> 

Arretra di un campo dati. 

<— 

Arretra nel campo dati e cancella un carattere. 


questo modo solo uno o due mesi. 
Per vedere di più ricorrete alle caratte¬ 
ristiche di visualizzazione grafica di 
Meteo.Grafici. 

Dopo avere introdotto le date sce¬ 
gliete i cinque set di dati che volete 
esaminare. Lo schermo a 40 colonne 
permette di visualizzare nella stessa 
videata un massimo di tre voci. Que¬ 
ste tre voci (o meno) possono essere 
scelte nella lista delle voci di dati of¬ 
ferta in forma di menù. E' sufficien¬ 
te che evidenziate la voce che volete 
includere e premiate Return. La voce 
viene poi visualizzata sul lato sini¬ 
stro dello schermo in forma di lista. 
Quando sono state scelte tre voci 
qualsiasi, o nel caso che scegliate Fi¬ 
ne dopo aver scelto meno di tre vo¬ 
ci, dovete dare l’OK per procedere. 
Se le voci scelte sono tali che sconfi¬ 
nerebbero dallo schermo ne siete in¬ 
formati da un messaggio, e dovete 
scegliere o meno voci o voci diver¬ 
se. A richiedere più spazio sono tem¬ 
peratura, pressione barometrica e pre¬ 
cipitazioni; non è possibile visualiz¬ 
zarle tutte e tre sulla stessa riga. L’e¬ 
sperienza vi aiuterà a giudicare quali 
campi di dati si possono o no visua¬ 
lizzare insieme. Il prospetto Stam¬ 
pante sfrutta comunque la capacità di 
80 colonne delle stampanti per stam¬ 
pare tutti i campi di dati. 

Quanto tutte le scelte sono state 
fatte e approvate il programma acce¬ 
de al dischetto e legge i file mensili 
da voi chiesti, uno alla volta. I dati 
scorrono con una pausa per l’osserva¬ 
zione dopo ogni gruppo di 15 giorni 
o press'a poco. A ogni pausa potete 
premere Return per proseguire o Esc 
per smettere. 

A prospetto completato (o dopo 
aver premuto Esc) viene visualizzata 
la schermata di scelta dei dati. A me¬ 
no che non vogliate visualizzare ulte¬ 
riori dati selezionate Fine, l'ultima 
voce del menù, e sarete riportati al 
menù Prospetti schermo/stampante. 

L'opzione Stampante è molto si¬ 
mile all’opzione Schermo, con la dif¬ 
ferenza che non avete bisogno di fare 
le scelte delle voci di dati in quanto 
vengono stampati tutti i campi di da¬ 
ti per la fascia di date che chiedete. I- 
noltre le intestazioni dei campi ven¬ 
gono stampate su ogni pagina per fa¬ 
cilità di lettura e alla fine del prospet¬ 
to viene emesso un avanzamento 
modulo. 

• I sommari mensili 

Dopo aver esaminato le opzioni 
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Tavola 2. Conversione pesi e misure 

Dato di 

Operazione 

Dato 

partenza 

da compiere 

risultante 

pollici (inches) 

miglio marino 

moltiplicare per 25,40 
moltiplicare per 2,540 

millimetri 

centimetri 

ingl. (6.080 piedi) 

moltiplicare per 1,8532 

chilometri 

gradi Fahrenheit 

sottrarre 32 

poi moltiplicare per 5/9 

gradi 

centigradi 


del menù Prospetti schermo/stam¬ 
pante ed essere tornati al menù prin¬ 
cipale potete, se lo desiderate, compi¬ 
lare un sommario mensile e stampa¬ 
re una copia su carta per i vostri ar¬ 
chivi. Sul menù principale scegliete 
l'opzione Statistiche mensili. Il pro¬ 
cedimento di scelta della data dovreb¬ 
be esservi ormai familiare, e quindi 
scegliete il mese e l'anno appropria¬ 
ti, come avete fatto prima. Se il file 
di dati dello specifico mese è già in 
memoria non ci sarà un nuovo acces¬ 
so al dischetto. 

Dopo la scelta della data viene let¬ 
to il dischetto, se necessario, e i dati 
vengono messi assieme per il pro¬ 
spetto. Occorrono vari secondi per¬ 
ché siano calcolate le medie, le mas¬ 
sime e le minime per ciascuno dei 
campi di dati, quindi pazientate men¬ 
tre il vostro Apple lavora. Quando i 
calcoli sono conclusi dovete decidere 
se visualizzare il prospetto sullo 
schermo o sulla stampante (se l’ave¬ 
te), o semplicemente smettere e tor¬ 
nare al menù principale. I formati 
schermo e stampante sono identici. 
Dopo la visualizzazione del prospet¬ 
to venite ricondotti al menù delle op¬ 
zioni di output, dove potete sceglie¬ 
re l’opzione Fine. Questa vi riporta 
al menù di scelta dei dati e di lì pote¬ 
te arretrare al menù principale. 

• La scelta del drive 

L'opzione Scegli drive vi permette 
di utilizzare dischetti dati privi di fi¬ 
le di programmi o di utility, e quin¬ 
di in grado di ospitare un quantitati¬ 
vo considerevolmente maggiore di 
dati. Perciò se volete dischetti dati 
assicuratevi che il vostro disco di bo- 
oting contenga tutti i file di Stazio¬ 
ne Meteo che sono letti presso l’ini¬ 
zio dei programmi. Dopo aver ese¬ 
guito il programma potete scegliere 
il drive 2. Non cambiatelo dopo aver 
inserito il vostro dischetto dei file di 
dati. Potete anche usare un drive per 
i file di dati e un altro per i file d’im¬ 
magini generati dai tracciamenti del 
programma Meteo.Grafici. Una vol¬ 
ta eseguito il file del programma 
(Stazione Meteo o Meteo Grafici) i 
soli file generati o ai quali si accede 
sono i file dei dati mensili e il file 
Meteo.Config creato dal programma 
Meteo Grafici. Quindi il file del pro¬ 
gramma occorre solo quando si pas¬ 
sa da un programma all'altro. 

• La generazione dei grafici 

Quando scegliete sul menù princi¬ 


pale l’opzione Esegui Meteo.Grafici, 
viene caricato in memoria il pro¬ 
gramma METEO.GRAFICI. Questo 
richiede un po' di tempo, dato che i 
puntatori del programma sono cam¬ 
biati e il programma si deve caricare 
sopra la pagina 1 della Hi-Res. 

Meteo Grafici 

Meteo.Grafici (listato 2) visua¬ 
lizza i dati meteorologici in maniera 
significativa. Mostra le tendenze, le 
anomalie e le correlazioni dei vostri 
dati meteorologici su base giornalie¬ 
ra, mensile e annuale. Potete traccia¬ 
re e ritracciare vari parametri, salvare 
e caricare diagrammi delle condizioni 
atmosferiche e, se la vostra scheda 
stampante ha la capacità di riversa¬ 
mento grafico, stampare direttamen¬ 
te i diagrammi. 

Le routine di tracciamento sfrutta¬ 
no il monitor a colori se lo avete, o 
visualizzano nitidi grafici monocro¬ 
matici. Se non avete la capacità di ri- 
versamento della grafica potete salva¬ 
re i vostri diagrammi per stamparli 
in seguito con altre routine di stam¬ 
pa grafica. 

Come si usa Meteo Grafici 

La prima volta che fate RUN ME¬ 
TEO.GRAFICI dovete provvedere al¬ 
la configurazione del vostro sistema 
di monitor/stampante/interfaccia. 
Meteo Grafici crea un file 
Meteo.Config che contiene i dati di 
configurazione. Quindi prima ancora 
di aver visto un menù dovrete rispon¬ 
dere a una serie di domande sul vo¬ 
stro sistema: la presenza o assenza 
di una stampante, il tipo di scheda 
d'interfacciamento e le stringhe di ca¬ 
ratteri eventualmente necessarie per 
riversare la grafica, e il* tipo di moni¬ 
tor (a colori o monocromatico). Se 
fate la configurazione senza una 
stampante o senza una scheda d’inter¬ 
faccia che abiliti i riversamenti grafi¬ 


ci le opzioni di stampa non verranno 
incluse nei menù. 

Quando avrete introdotta la vostra 
configurazione sarà visualizzato il 
menù principale. Da questo momen¬ 
to in poi andrete direttamente al me¬ 
nù principale purché il file 
Meteo.Config sia sul dischetto. 0- 
gni volta che scegliete la riconfigura¬ 
zione del vostro allestimento vengo¬ 
no visualizzate in alto sullo scher¬ 
mo le scelte di default. Se le volete 
mantenere immutate premete Esc. I 
parametri vengono risalvati sul di¬ 
schetto e venite riportati al menù 
principale. Per cambiare la vostra 
configurazione basta che premiate 
Return come viene chiesto e rispon¬ 
diate alle domande concernenti il vo¬ 
stro hardware. 

Se intendete stampare la vostra gra¬ 
fica è meglio che scegliate l'opzione 
del monitor monocromatico, a causa 
del modo in cui la stampante stampa 
i colori. Su un monitor monocroma¬ 
tico i colori appaiono come linee 
bianche separate da linee nere, ed è e- 
sattamente questo il modo in cui ve¬ 
de la cosa un programma di riversa¬ 
mento sulla stampante. Quando vie¬ 
ne scelta l'opzione del monitor mo¬ 
nocromatico tutti i colori vengono 
tracciati in bianco e sulla stampante 
appaiono come bianco uniforme. 

• Il tracciamento 

dei parametri giornalieri 

Scegliete questa opzione sul menù 
principale per tracciare un mese di da¬ 
ti. La procedura di scelta della data è 
la stessa delle scelte di Stazione 
Meteo, prima il mese,' poi l’anno. 
Premendo Return per la voce ANNO 
si esce dalla routine senza una scel¬ 
ta. 

Quando la scelta del vostro file di 
dati è completa dovete scegliere i pa¬ 
rametri meteorologici che volete trac¬ 
ciare sullo schermo Hi-Res. Potete 
scegliere un parametro oppure due. 
Il secondo parametro è spesso utile 
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per mostrare le correlazioni fra para¬ 
metri differenti. Ci sono infatti alcu¬ 
ne relazioni insolite fra i vari tipi di 
dati del tempo. 

Dopo aver fatto le vostre scelte 
premete S o Return per confermare 
che le scelte sono completate. Il di¬ 
schetto viene letto e ha inizio il trac¬ 
ciamento. Se invece avete introdotto 
N in risposta al prompt venite ripor¬ 
tati al menù di scelta dei parametri. 

Notate che l'asse Y del primo para¬ 
metro da tracciare è sulla sinistra del¬ 
lo schermo grafico, e l'asse Y del se¬ 
condo parametro da tracciare è sulla 
destra dello schermo. Le scritte sono 
situate in conformità sulla sinistra e 
sulla destra. L'asse X è comune ai 
due set di dati (figura 2). 

Quando il tracciamento è comple¬ 
to l’altoparlante emette un bip. Pre¬ 
mete Return per proseguire. Fatto 
questo venite automaticamente invia¬ 
ti alla sezione Utilità grafiche. 

• Utilità grafiche 

Dopo ogni tracciamento il pro¬ 
gramma toma alla sezione Utilità 
grafiche. Potete limitarvi a premere 
Return per riesaminare lo schermo 
grafico. Oppure, premendo una frec¬ 
cia, potete: salvare il grafico, carica¬ 
re un’altra immagine da esaminare, 
tracciare di nuovo con parametri di¬ 
versi, cambiare drive per caricare o 
salvare un’immagine, stampare la 
grafica (se avete l’appropriata scheda 
d’interfacciamento) o tornare al me¬ 
nù principale. 

L'opzione Tracciare di nuovo vi 
permette di ri tracciare i dati senza ri¬ 
leggere il file di dati. L'immagine o- 
riginale rimane nella pagina 1 della 
Hi-Res fino a quando viene tracciato 
o caricato un altro grafico, cosicché 
potete esaminare, salvare o stampare 
l'immagine più tardi se per il mo¬ 
mento volete fare qualcos’altro. 

Quando salvate la vostra immagi¬ 
ne il programma aggiunge .PIC (se 
non l'avete già aggiunto voi) al no¬ 
me che le date. Questo suffisso iden¬ 
tifica i file d'immagine nel catalogo 
del dischetto. La lunghezza massima 
del nome è di dieci caratteri se non a- 
vete incluso .PIC, nel qual caso la 
lunghezza ammessa è di 14 caratteri. 
L'aggiunta di .PIC impedisce che 
Venga attribuito lo stesso nome a un 
file di dati e a un'immagine se date 
al tracciato e al file di dati lo stesso 
nome. 

C’è un’opzione di catalogo sia che 
si salvi sia che si carichi. Solo i file 


.PIC possono essere caricati per l’os¬ 
servazione. Quando caricate un'im¬ 
magine potete usare o no il suffisso 
.PIC, come preferite. Il programma 
controlla se esiste e se non lo trova 

10 aggiunge prima di cercare il nome 
sul dischetto. 

• Il tracciamento 

dei parametri mensili 

L’opzioneTracciareparametri men¬ 
sili vi permette di fare un grafico del¬ 
le tendenze meteorologiche a lunga 
scadenza (figura 2). Traccia infatti 
le medie mensili (o i totali, nel caso 
delle precipitazioni) per una fascia di 
dati che si estende fino a due anni. 

La figura 2 dà un esempio di trac¬ 
ciato di temperature massime e mini¬ 
me fra l'agosto 1984 e il luglio 
1985. La scelta delle date di traccia¬ 
mento e dei parametri è simile al 
procedimento di scelta delle altre se¬ 
zioni del programma. Notate che più 
mesi tracciate più morbida sarà la 
curva. Se tracciate solo due o tre me¬ 
si avrete bruschi picchi e avvalla¬ 
menti invece di una curva scorrevole 
come il tracciato di figura 2. Potete 
determinare per tentativi il periodo 
di tempo che crea una curva di aspet¬ 
to gradevole; io suggerisco almeno 
sei mesi. 

I dati di ciascun mese vengono let¬ 
ti, i punti dei dati vengono tracciati 
e viene tracciata la linea dai dati del 
mese precedente. Premendo Esc si ar¬ 
resta il tracciamento fra i mesi. 

• L’esecuzione di Stazione 
Meteo 

Esattamente come potete eseguire 

11 programma Meteo Grafici dall’in¬ 
terno di Stazione Meteo, potete ese¬ 
guire Stazione Meteo dall’interno di 
Meteo Grafici. Vi basta scegliere 
l’opzione Esegui Stazione Meteo sul 
menù principale. 

• La scelta del drive 

L’opzione Scegli drive è disponibi¬ 
le sia sul menù principale sia sul 
menù Utilità grafiche; non dovreste 
aver bisogno di cambiare drive quan¬ 
do siete su menù diversi da questi 
due. Fate attenzione dopo ogni acces¬ 
so a cambiare nuovamente il drive 
tornando a quello che vi occorre, per 
evitare messaggi d'errore o ritardi 
causati da ricerche di dischetto non 
valide. 

• L’uscita 

Non occorre che verifichiate la vo¬ 


stra scelta per abbandonare Meteo 
Grafici in quanto uscendo non perde¬ 
rete dati. Se fate un errore basta che 
battiate di nuovo RUN METE- 
O.GRAFICI. Se c’era grafica in me¬ 
moria sarà ancora lì. 

Come si introducono 
i programmi 

Per introdurre Stazione Meteo co¬ 
piate innanzitutto il programma in 
Applesoft del listato 1 e salvatelo 
con il comando: 


SAVE STAZIONE.METEO 


Poi copiate il programma del li¬ 
stato 2 e salvatelo con il comando: 


SAVE METEO.GRAFICI 


Per avere aiuto nell'introduzione 
dei listati di Applicando si veda "Per 
chi comincia" in questo numero del¬ 
la rivista. 

Il listato 3 è il listato in lin¬ 
guaggio assemblatore Cursor.Bar. 
Questa routine non solo produce la 
barra inversa, ma permette anche di 
impostare la lunghezza della barra 
mediante due ulteriori parametri 
CALL. Inoltre con un tantino di co¬ 
dice in più reagisce sia alle frecce in 
su e in giù sia alle frecce sinistra e 
destra della versione originale. Se in¬ 
troducete Cursor.Bar con un assem¬ 
bler assemblatelo a $300. Se non 
possedete un assembler usate il Mo¬ 
nitor per introdurre direttamente il 
codice esadecimale, e salvatelo sul di¬ 
schetto con il comando: 


BSAVE CURSOR.BAR,A$300, 
L$BB 


La tavola delle figure del listato 
4 genera caratteri in alta risoluzione 
Copiate questo listato andando in 
Monitor con CALL-151 e salvatelo 
con il comando: 


BSAVE METEO.FIGURE,A$803, 
L$313 


Come funziona 
il programma 

La routine del menù principale di 
Stazione Meteo è contenuta nelle li¬ 
nee 1310-1430 del listato 1. Anzitut¬ 
to lo schermo viene pulito e vengo¬ 
no inizializzati alcuni flag (linea 
1310). Poi viene stampata l'intesta- 
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zione alla sommità dello schermo (li¬ 
nee 1320-1330). Quindi vengono vi¬ 
sualizzate le voci del menù (linee 
1340-1390). La linea 1400 richiama 
una subroutine che è a linea 1240 e 
che stampa i normali prompt di me¬ 
nù alla base dello schermo. 

La routine del cursore a barra è 
molto flessibile, e può essere facil¬ 
mente modificata per l'impiego nei 
vostri programmi personali. E' ri¬ 
chiamata nella linea 1410; a CUR è 
stato dato in precedenza il valore 
768, che è l'indirizzo al quale CUR- 
SOR.BAR.III è caricata. Così CAL- 
L CUR si traduce in CALL 768. I 
quattro numeri seguenti, 7, 17, 6 e 
33, sono i parametri per il cursore a 
barra, e rappresentano rispettivamen¬ 
te la linea più alta, la linea più bas¬ 
sa, il margine sinistro e il margine 
destro. Il cursore a barra inversa ver¬ 
rà disegnato entro questi limiti. 

La linea 1420 richiama una su¬ 
broutine a linea 760 che legge con 
PEEK il valore alla locazione 4. Si 
tratta del numero di linea sul quale e- 
ra il cursore a barra quando è stato 
premuto Return. Poi questo numero 
di linea si traduce in un numero di 
voce di menù, in modo che il nume¬ 
ro della voce di menù possa essere 
dato nella variabile LINE. Questo 
rende facile fare la diramazione alla 
subroutine appropriata usando l'istru¬ 
zione ON LINE GOTO, come a line- 
a 1430. 

Anche la routine d'input di Stazio¬ 
ne Meteo è molto flessibile, e po¬ 
trebbe essere usata nei vostri pro¬ 
grammi personali. E' contenuta nel¬ 
le linee 2070-2510. 

Prima di tutto una subroutine a li¬ 
nea 1200 viene chiamata a stampare 
sullo schermo i dati correnti. Poi si 
entra in un grande loop FOR-NEXT 
per ricevere l'input per ogni elemen¬ 
to di dati (in Stazione Meteo ce ne 
sono nove). La linea 2110 stampa la 
corrente linea d'input, insieme con il 
carattere di sottolineatura a indicare 
la lunghezza ammessa del campo di 
input. La linea 2130 riceve un carat¬ 
tere d'input. La linea 2140 vede se 
sia stato battuto un carattere di con¬ 
trollo, e in caso negativo va diretta- 
mente alla linea 2150 dove la lettera 
o il numero viene accettato. Se è sta¬ 
to battuto un carattere di controllo il 
programma continua alla linea 
2160, che controlla se il tasto battu¬ 
to è Esc. In caso affermativo le linee 
2170-2180 arretrano se possibile al 
campo precedente. Altrimenti il pro¬ 


gramma procede a linea 2200 dove 
controlla se sia stata premuta la frec¬ 
cia sinistra. In caso affermativo le li¬ 
nee 2210-2230 gestiscono la spazia¬ 
tura all'indietro. In caso negativo il 
programma procede a linea 2270, do¬ 
ve cerca un Return. Se è stato pre¬ 
muto Return le linee 2280-2360 con¬ 
trollano la validità dell'input. Se è 
valido viene accettato (linea 2340), 
altrimenti è rifiutato (linea 2320). 

Le linee 2400-2500 controllano se 
siano stati battuti i vari caratteri di 
controllo accettabili, CTRL-Q, 
CTRL-C e CTRL-E, e compiono fa¬ 
zione appropriata. Qualsiasi altro ca¬ 
rattere di controllo ha come risultato 
un bip a linea 2500, e si rientra nel 
loop a linea 2130. 

La cosa più bella di questa routine 
è che tutti i vari controlli vengono 
completamente saltati a meno che 
non si prema un carattere di control¬ 
lo. Questo fatto elimina la lenta rea¬ 
zione all'input che si può verificare 
spesso nelle routine di input in Ap¬ 
plesoft. 

WS.GRAPHICS usa alcune tecni¬ 
che speciali di programmazione che 
meritano di essere menzionate. Nella 
sezione Funzioni definite all'inizio 
del listato (linee 180-200) il coman¬ 
do DEF FN dell’Applesoft contribui¬ 
sce ad accelerare il tracciamento. An¬ 
ziché far calcolare ogni punto a un 
loop FOR-NEXT la funzione DEF 
FN salva il calcolo e lo valuta secon¬ 
do necessità. Per calcolare le coordi¬ 
nate di ciascun punto vengono usate 
tre funzioni. La prima mette in scala 
la coordinata Y in modo che il suo 
valore non superi mai 150. La secon¬ 
da funzione spazia i punti di dati di 
sette pixel con un offset (B) dall'orlo 
sinistro. L'ultima funzione utilizza i 
valori generati dalla routine di trac¬ 
ciamento per calcolare le posizioni 
di tracciamento orizzontale per i trac¬ 
ciati mensili. 

La routine Configura sistema (line- 
e 350-430) genera diverse variabili. 
PT è il flag di stampante, ed è ugua¬ 
le a uno se avete una stampante e a 
zero se non l'avete. GP è uguale a u- 
no se avete una scheda d'interfaccia 
stampante con capacità grafica e a ze¬ 
ro se non l'avete. Nel caso che non 
ci sia stampante (PT=0) è ovvio che 
non c'è scheda d'interfaccia, e quindi 
GP=0 e GP$="". 

GP$, la stringa di controllo della 
stampante, viene inviata alla vostra 
stampante se avete una scheda con 
capacità grafica. E' nulla se non c'è 


ATTENZIONE! 

I listati sono 
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alcun comando o se non avete sche¬ 
da con capacità grafica. Infine CL è 
uguale a uno se avete un monitor a 
colori e a zero se avete un monitor 
monocromatico. E' questa la variabi¬ 
le chiave quando vengono generati i 
display grafici. La linea 3030 mo¬ 
stra l'esempio di un'espressione ma¬ 
tematica che incrementa il numero 
del colore tracciato, sulla base del va¬ 
lore della variabile CL. Si noti che 
se CL è uguale a zero tutti i colori 
tracciati assumono il valore 3, che è 
il valore del bianco. E' giusto che 
sia così in quanto il valore di CL in¬ 
dica se il vostro monitor è in grado 
di mostrare i colori. 

La personalizzazione 

Stazione.Meteo e Meteo.Grafici 
sono stati progettati in modo che 
fossero flessibili e girassero sulla 
maggior parte dei sistemi Apple II, 
e quindi la maggior parte delle modi¬ 
fiche è gestita dall'interno dei pro¬ 
grammi. 

Per modificare gli anni disponibili 
per l'introduzione dei dati (la fascia 
di default va da 1980 a 1999) cambia¬ 
te i valori a linea 1900 di Stazione 
Meteo negli anni che desiderate. Per 
cambiare la scelta dell'anno è suffi¬ 
ciente che cambiate l'80 o il 99. 

Potete manipolare i dati a seconda 
delle vostre necessità. Ad esempio 
per i dati del vento potreste salvare, 
volendo, la velocità massima del 
vento della giornata anziché la velo¬ 
cità media. Dovrete però essere siste¬ 
matici per conservare l'integrità dei 
vostri dati. Può darsi che vogliate re¬ 
gistrare la pressione barometrica a u- 
na certa ora del giorno anziché i valo¬ 
ri massimo e minimo. Potete rispar¬ 
miarvi una considerevole introduzio¬ 
ne di dati se vi interessa solo l’anda¬ 
mento a lunga scadenza delle varie 
condizioni atmosferiche. 

^ Questo programma è disponibile ^ 
su dischetto. L’elenco, i prezzi 
e le modalità d’ordine di questo 
e degli altri dischetti disponibili 
sono riportati nella rubrica 
. Disk Service. , 
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Finalmente gli effetti speciali! Questo programma aggiunge 
un tocco di creatività al sistema AppleEdit e consente 
un'elevata definizione di stampa perché lavora in PostScript. 



Il settore del desk top publishing 
viene considerato da molti come il 
più innovativo e promettente per il 
prossimo futuro. 

Una delle ultime novità Cricket 
Draw, un potente programma di dise¬ 
gno di tipo object-oriented, creato 
allo scopo di produrre immagini di 
alta qualità su stampanti che suppor¬ 
tano PostScript. Le stampanti di que¬ 
sto tipo sono ormai numerose, a co¬ 
minciare dalla LaserWriter della Ap¬ 
ple, e continuando con Agfa-Gevaert 
P400PS, DataProducts LZR-2665, 
Apollo Laser-26, QMS-PS 800 e 
PS 2400, Texas Instruments 2108 e 
2115, Sun LaserWriter, Linotype Li- 
notronic 100 e 300. Il linguaggio 
PostScript, che è stato fin dall'inizio 
energicamente supportato dalla Ap¬ 
ple, ha la capacità di fornire alla 
stampanteun'accuratadescrizionedel- 
la pagina contenente sia testo sia gra¬ 
fica, in modo da sfruttare efficace¬ 
mente la massima precisione e riso¬ 
luzione che la periferica può mettere 
a disposizione. Caratteri e disegni 
vengono quindi stampati con una ri¬ 
soluzione di 300 punti per pollice 
su una Apple LaserWriter, ma la 
stessa pagina avrà una risoluzione di 
2540 punti per pollice se la stampan¬ 
te a disposizione sarà per esempio u- 
na più sofisticata (e naturalmente 
molto più costosa) Linotype Lino- 
tronic 300. Le possibilità offerte al 
programmatore dal PostScript sono 
molteplici e particolarmente sofisti¬ 
cate: è possibile per esempio effet¬ 
tuare rotazioni e ombreggiature di ca¬ 
ratteri e testi, oppure scegliere con 
accuratezza la tonalità di grigio di u- 
na figura o di un oggetto, eventual¬ 
mente sfumando gradualmente l'in¬ 
tensità del grigio stesso. 

Purtroppo queste opzioni, eccezio¬ 
nalmente utili per le correnti esigen¬ 
ze del desk top publishing, non ven¬ 
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gono in genere sfruttate dai pro¬ 
grammi disponibili su Macintosh. Il 
motivo è molto semplice: tutte que¬ 
ste applicazioni utilizzano per la vi¬ 
sualizzazione su schermo e per la 
rappresentazione interna dei dati le 
routine contenute nel ToolBox, e 
più precisamente per quanto riguarda 
la grafica fanno riferimento al 
QuickDraw, contenuto nelle ROM 
del Macintosh. 

Se un file così creato deve venir 
stampato da una stampante Po¬ 
stScript, viene effettuata automatica- 
mente una traduzione in questo lin¬ 
guaggio, e la stampa può quindi a - 
ver luogo. 

Le capacità di QuickDraw relativa¬ 
mente alla descrizione di una pagina 
sono molto inferiori a quelle di Po¬ 
stScript, così che la maggior parte 
delle possibilità di quest'ultimo non 
vengono sfruttate adeguatamente. 


Una nuova generazione 

Cricket Draw si propone in questo 
senso come il capostipite di una nuo¬ 
va generazione di programmi per Ma¬ 
cintosh. Esso infatti continua a uti¬ 
lizzare le routine di QuickDraw per 
la visualizzazione della pagina sullo 
schermo, ma genera altresì diretta- 
mente un file PostScript per la de¬ 
scrizione del lavoro effettuato. Si ve¬ 
rifica quindi la curiosa situazione in 
cui la stampa di una pagina risulta 
di gran lunga migliore qualitativa¬ 
mente di quanto sia possibile osser¬ 
vare sul monitor; in questo modo lo 
sfruttamento delle possibilità offerte 
dalla combinazione di un Mac e di u- 
na stampante PostScript diventa net¬ 
tamente superiore. 

Altri programmi impostati sulla 
stessa filosofìa operativa stanno 
giungendo sul mercato; uno dei più 
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significativi sarà senza dubbio Illu¬ 
stra tor, prodotto dalla Adobe Sys¬ 
tems, che con caratteristiche e impo¬ 
stazione diverse da Cricket Draw (e a 
un costo superiore), andrà a costitui¬ 
re un altro strumento estremamente 
interessante per grafici e designer. 

Tornando a Cricket Draw, esso 
può essere sbrigativamente definito 
come una versione avanzata di Mac- 
Draw, in grado di sfruttare in modo 
approfondito le possibilità messe a 
disposizione da PostScript. Di Mac- 
Draw sono state conservate la facili¬ 
tà di apprendimento e la semplicità 
operativa, anche se le opzioni dispo¬ 
nibili sono naturalmente molto più 
avanzate. Cricket Draw mette a di¬ 
sposizione dell'utilizzatore due tipi 
di finestre: una per il disegno, e 
un'altra denominata PostScript. In 
quest'ultima sarà possibile visualiz¬ 
zare il listato corrispondente alla de¬ 
scrizione del disegno creato. 

Come si usa il programma 

La finestra di disegno si presenta 
in modo abbastanza convenzionale, 
ricordando l'impostazione di Mac- 
Draw. Sulla sinistra sono disponibi¬ 
li una serie di strumenti che consen¬ 
tono di disegnare linee, rettangoli, 
rettangoli a bordi arrotondati, ovali e 
cerchi, archi, rombi, poligoni, e di 
disegnare a mano libera. Sono poi 
presenti altri tool di uso meno con¬ 
venzionale: servono per tracciare gra¬ 
ticci (ossia serie di linee parallele), 



stelle (fasci di rette concentriche) e 
curve di Bezier (linee curve definite 
da quattro punti sul piano). 

Nella parte inferiore della finestra 
sono invece presenti alcune altre ico¬ 
ne definite come object control; lo 
scopo di questi strumenti è appunto 
quello di permettere vari interventi 
sugli oggetti creati, come la duplica¬ 
zione, la rotazione, la distorsione, il 
riempimento con un colore o fondi¬ 
no prescelto. 

La prima operazione da effettuare, 
accingendosi a impostare un nuovo 
disegno, consiste nel selezionare 
l’opzione NEW dal menù File; sarà 
possibile scegliere a questo punto se 
attivare una finestra di disegno o una 
finestra PostScript. E' opportuno, 
prima di iniziare a operare, settare 
opportunamente le caratteristiche del¬ 
l'ambiente di lavoro, utilizzando l'op¬ 
zione Preference dal menù Layout. 
Innanzitutto il colore: Cricket Draw 
è in grado infatti di generare pro¬ 
grammi PostScript atti a controllare 
sia i livelli di grigio sia la stampa a 
colori. 

Poiché non esistono attualmente 
stampanti laser in grado di produrre 
output a colori (ma forse il prossi¬ 
mo futuro riserva significative sor¬ 
prese), si otterranno stampe di que¬ 
sto tipo soltanto con ImageWriter II 
dotata di nastro colorato. 

Un'altra scelta di particolare inte¬ 
resse riguarda il controllo dei tasti 
cursore (disponibili solo sulla tastie¬ 
ra del Mac Plus). Essi consentono di 
spostare un oggetto selezionato per 
un preciso ammontare di pixel sullo 
schermo, sia in orizzontale sia in 
verticale: è sufficiente specificare il 
numero di pixel in relazione a ognu¬ 
no dei quattro tasti. 

Un ausilio significativo alle opera¬ 
zioni di disegno può derivare dall'uti- 
lizzo dei righelli, richiamabili attra¬ 
verso l'opzione Rulers del menù La¬ 
yout. Le unità di misura disponibili 
sono pollici, centimetri, pica e pi¬ 
xel: il pixel è naturalmente il singo¬ 
lo punto visualizzabile sullo scher¬ 
mo del Mac, corrispondente approssi¬ 
mativamente a 1/72 di pollice, men¬ 
tre il pica è un’unità di misura utiliz¬ 
zata soprattutto in fotocomposizio¬ 
ne, pari a 1/6 di pollice. L'origine 
degli assi cartesiani rappresentati dai 
righelli è selezionabile a piacimen¬ 
to, e la posizione del cursore nel si¬ 
stema di riferimento è individuata 
continuamente da una sottile linea 
punteggiata che appare alfinterno 


dei righelli stessi. Un ulteriore sup¬ 
porto per il disegno di precisione è - 
assicurato dalla disponibilità di gri¬ 
glie di riferimento e di guide che pos¬ 
sono essere situate in qualunque par¬ 
te del foglio di lavoro. L’utilizzo pre¬ 
valente di queste ultime consiste nel- 
l’allineare con precisione una serie di 
oggetti, sfruttando l’opzione Snap 
to, in modo da ottenere un esatto po¬ 
sizionamento, utile soprattutto nel 
caso in cui si debba stampare con u- 
na periferica dotata di risoluzione su¬ 
periore a quella ottenibile sullo 
schermo del Macintosh. 

E' inoltre disponibile un comando 
di Zoom, che permette di ingrandire 
a piacimento una porzione dell'im- 
magine realizzata. 

Gli oggetti creati utilizzando gli 
strumenti precedentemente descritti 
possono essere modificati, spostati e 
trasformati con grande facilità, carat¬ 
teristica questa comune alla maggior 
parte dei programmi object-oriented, 
che memorizzano una descrizione 
simbolica della figura creata, anziché 
un semplice insieme di punti. 

Per spostare un oggetto, dopo aver¬ 
lo selezionato, sarà per esempio suf¬ 
ficiente il movimento del mouse, te¬ 
nendo premuto il bottone di coman¬ 
do; una volta raggiunta la posizione 
desiderata, rilasciando il bottone, 
l'oggetto verrà trasferito istantanea- 
mente. 

Un'opzione particolarmente utile 
nel caso di disegno in scala è costi¬ 
tuita da Show Specs, presente nel 
menù Layout; attivandola, verranno 
visualizzate le quote riportanti l'esat¬ 
ta dimensione dell'oggetto nell'unità 
di misura prescelta. E' possibile i- 
noltre modificare rapidamente i con¬ 
torni di un poligono, tramite l'opzio¬ 
ne Edit Poligon, puntando semplice- 
mente il cursore sul vertice da spo¬ 
stare, e muovendo il mouse con il 
pulsante premuto. 

Trattamento testi 

Cricket Draw è in grado di trattare 
con notevole flessibilità anche i te¬ 
sti. Per scrivere all’interno della fine¬ 
stra di disegno basta selezionare un'a¬ 
rea, definita da un rettangolo, che co- 
situirà lo spazio destinato al testo. 
A questo punto Cricket Draw è già 
pronto a ricevere i vari caratteri, che 
sono singolarmente determinabili 
per stile, font e dimensione. Le va¬ 
rie opzioni di formattazione, giustifi¬ 
cazione, spaziatura sono abbastanza 
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simili a quelle offerte da MacWrite, 
e operano, unitamente al word wrap- 
ping (ossia alla capacità di portare 
automaticamente a capo una parola 
che verrebbe spezzata a fine riga), a- 
vendo come margini i lati dell'area i- 
nizialmente fissata. La caratteristica 
forse più interessante è la possibilità 
di ruotare blocchi di testo esattamen¬ 
te nello stesso modo con cui si ope¬ 
ra sugli oggetti, ottenendo risultati 
altrimenti impossibili da realizzare 
in qualsiasi programma di word pro¬ 
cessing. 

Il vero punto di forza di Cricket 
Draw è comunque costituito dagli ef¬ 
fetti speciali che è in grado di creare, 
sfruttando in modo approfondito la 
potenza di PostScript. 

Il più significativo di questi effetti 
è chiamato Fountain, e consiste nel¬ 
la variazione continua della scala di 
grigio ottenibile all'interno di un og¬ 
getto, o addirittura in un carattere. 

La variazione può essere a scelta li¬ 
neare, logaritmica, o radiale. 

Un altro effetto di notevole impat¬ 
to è ottenibile mediante il comando 
Shadow, e ha come risultato l'om¬ 
breggiatura dell'oggetto selezionato, 
in modo da creare una visione pro¬ 
spettica, molto utile in caso di dise¬ 
gno tridimensionale. 

Per quanto riguarda il testo, è pos¬ 
sibile infine posizionare i caratteri 
di una frase sul bordo di una linea 
curva precedentemente tracciata. 

Formati di salvataggio 

Il salvataggio del documento così 
ottenuto su disco può essere effettua¬ 
to utilizzando tre diversi formati: 
Cricket Draw, PICT e EPSF. Il pri¬ 
mo è caratteristico del programma, e 


non consente lo scambio di dati con 
altri pacchetti; ha il vantaggio di ri¬ 
sultare particolarmente compatto. Il 
formato ideale per permettere l'utiliz¬ 
zo di disegni in altre applicazioni è 
senza dubbio PICT, che può essere 
considerato lo standard Macintosh 
per quanto riguarda la grafica: viene 
infatti letto da numerosi program¬ 
mi, come PageMaker, MacDraw e 
MacDraft. EPSF sta invece per En- 
capsulated PostScript File: si tratta 
di un formato relativamente nuovo, 
messo a punto dalla Altsys, una sof¬ 
tware house americana produttrice 
fra l'altro di Fontastic e Fontogra- 
pher, due programmi per la creazio¬ 
ne e l'editing di font; non presenta 
particolari vantaggi che ne giustifi¬ 
chino l'utilizzo. 

Per quanto concerne la compa¬ 
tibilità, Cricket Draw è in grado di 
leggere direttamente i file generati da 
MacDraw, mostrandoli nella fine¬ 
stra di disegno. Può inoltre leggere i 
file PICT, risultando così compatibi¬ 
le con tutte le applicazioni che salva¬ 
no i dati in questo formato. 

Per quanto concerne invece il tra¬ 
sferimento da Cricket Draw verso al¬ 
tri programmi, esso avviene attraver¬ 
so gli stessi file PICT, che vengono 
supportati direttamente, o spostati at¬ 
traverso la Clipboard. 

Oltre a PageMaker e MacDraw, an¬ 
che Ready Set GO! 3.0, MacPubli- 
sher II e III, MacDraft e PictureBase 
leggono i file PICT; MacWrite, Mi¬ 
crosoft Word e WriteNow li impor¬ 
tano invece via Clipboard. 

A quest’ultima categoria appartie¬ 
ne anche Cricket Graph, l'altro pro¬ 
gramma della Cricket Software che 
produce grafici commerciali di vario 
genere. Da notare che Cricket Draw, 


Un esempio di stampa con 
rimageWriter e il nastro a colori. 


salvando il file in formato PICT, in¬ 
corpora anche la descrizione in Po¬ 
stScript relativa: in questo modo, se 
il file viene trasferito in altre 
applicazioni, l’immagine verrà stam¬ 
pata con tutte le sue caratteristiche o- 
riginali, anche se la visualizzazione 
potrà non essere all'altezza del docu¬ 
mento finale. Un cenno particolare 
merita a questo punto la finestra Po¬ 
stScript, che sarà certamente meno u- 
tilizzata di quella di disegno, almeno 
dall'utente convenzionale. Essa è in 
condizioni di presentare un listato in 
PostScript corrispondente alla descri¬ 
zione di un'immagine creata con 
Cricket Draw. 

Per effettuare questa conversione, 
bisogna attivare il comando Genera¬ 
te PostScript dal menù Goodies: nel¬ 
la finestra PostScript verrà riportata 
la lista di istruzioni relativa alla fine¬ 
stra di disegno corrente. Il file Po¬ 
stScript può essere salvato su disco 
e mandato eventualmente a una stam¬ 
pante predisposta, in modo del tutto 
indipendente. 

Per gli utilizzatori più evoluti, da 
segnalare la possibilità di inserire al¬ 
l'interno del listato proprie istruzio¬ 
ni, a modifica o integrazione di quan¬ 
to prodotto con Cricket Draw, avva¬ 
lendosi fra l'altro di un buon editor 
con funzioni di CUT, COPY, PA¬ 
STE, e di SEARCH e REPLACE 
per parole o stringhe. E' disponibile 
addirittura un HELP in linea, conte¬ 
nente una breve descrizione dei prin¬ 
cipali comandi e funzioni del lin¬ 
guaggio PostScript. 

Passando a una valutazione conclu¬ 
siva di Cricket Draw, si può dire che 
l'utilizzo è semplice e intuitivo e gli 
effetti ottenibili su grafica e testo so¬ 
no assolutamente spettacolari. Mol¬ 
to interessante è fra l'altro il rappor¬ 
to qualità-prezzo. L'unico piccolo 
rimpianto riguarda il fatto che nella 
visualizzazionedeldocumentovenga- 
no ancora sfruttate le routine di Quic¬ 
kDraw, con il risultato di ottenere u- 
na rappresentazione su schermo che 
è molto spesso soltanto una pallida 
approssimazione di quella che sarà la 
stampa finale. 

Cricket Draw è distribuito in Italia 
dalla Elcom di Gorizia, Corso Italia 
149, telefono 0481/30909 e costa li¬ 
re 580.000+Iva. 

Stefano Minotto 
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ANIMAZIONE 
















Tavola 1. Bottoni e campi di editing 


Bottone o 
campo 
di editing 

fi 


< e > 


« e » 


Vai a 


Velocità 


Inizio 


Fine 


Descrizione 

Comando di arresto. Il bottone è evidenziato 
quando il film non è in proiezione. 

Comandi per la proiezione. Il bottone V fa anda¬ 
re il film in avanti ed il bottone V lo fa girare al- 
Pindietro. 

Comandi di riavvolgimento ed avanzamento. A- 
vanzano o fanno indietreggiare di un fotogram¬ 
ma alla volta. Se si avanza oltre l'ultimo foto¬ 
gramma viene creato un fotogramma vuoto. Se 
si avanza oltre l'ultimo fotogramma mantenen¬ 
do premuto il tasto Comando viene prodotta u- 
na immagine affievolita sulla quale si può ripas¬ 
sare con la matita (funziona solo la matita - ogni 
altro strumento cancella il disegno). Questa fun¬ 
zione è specialmente utile per creare una fiaura 
in movimento, una esplosione o una nuvola di 
polvere. 

Comando di posizionamento. Presenta il foto¬ 
gramma corrispondente al numero scritto nel 
campo di editing adiacente. Se il numero corri¬ 
sponde ad un valore illegale (numero negativo o 
numero superiore a quello dell'ultimo fotogram¬ 
ma) viene dato un avvertimento per poterlo mo¬ 
dificare. Il campo di editing contiene normalmen¬ 
te il numero del fotogramma corrente. 

Campo di editing che riporta la velocità alla qua¬ 
le il film verrà fatto girare. La velocità massima 
corrisponde a 100 e la minima ad 1. 

Campo di editing che specifica il fotogramma di 
inizio della proiezione. 

Campo di editing che specifica l'ultimo fotogram¬ 
ma della proiezione. 



Con il programma Movie Con- 
struction Kit (MCK) potete creare 
delle proiezioni di film sullo .scher¬ 
mo del Mac. MCK è principalmente 
un programma artistico e divertente 
ma possiede anche molti usi pratici. 
Per esempio, se desiderate preparare 
una presentazione da collocare in u- 
na vetrina potete disegnare con 
MCK un film in movimento che 
mostri esattamente ciò che volete. 
Si possono creare facilmente delle 
semplici scalette animate per la pre¬ 
parazione di film o video. 

Uso del programma 

Come la maggior parte dei pro¬ 
grammi Mac, MCK (listato 1) è 
controllato dal mouse ed è facile da 
usare. Per far partire MCK seleziona¬ 
te Start dal menù Run dellMS Basic 
oppure fate un doppio clic sulla sua 
icona dalla Scrivania. Lo schermo 
viene ripulito e dopo alcuni momen¬ 
ti viene presentata la schermata di e- 
diting (figura 1). Due riquadri occu¬ 
pano buona parte dello schermo. 
Quello più grande, sul lato sinistro, 
serve come finestra di editing dei fo¬ 
togrammi: questa è l'area dove ven¬ 
gono disegnati i fotogrammi del fil¬ 
mato. Si lavora nella finestra di edi¬ 
ting così come si lavora quando ci si 
trova in immagine ingrandita in 
Mac Paint. Il riquadro più piccolo, 
sul lato destro, mostra la scena in di¬ 
mensione reale (100x80 pixel). Qua¬ 
lunque cosa venga disegnata nel ri¬ 
quadro grande appare, ridotta a un ter¬ 
zo, nel riquadro piccolo. Ci sono di¬ 
versi strumenti per disegnare che ver¬ 
ranno descritti più avanti . 

La parte rimanente dello schermo 
mostra dei bottoni e dei campi di edi¬ 
ting. Sul lato destro ce ne sono di¬ 
versi racchiusi da un rettangolo: so¬ 
no descritti nella tavola 1. In bas¬ 
so a sinistra ci sono quattro bottoni 
marcati Su, Giù, Sinistra e Destra 
collegati al comando Scorrimento; 
permettono di spostare il fotogram¬ 
ma da editare nelle corrispondenti di¬ 
rezioni un pixel alla volta. 

Disegno dei fotogrammi 

La creazione di fotogrammi con 
MCK è decisamente semplice. Per 
accedere agli strumenti di disegno se¬ 
lezionate Strumenti dal menù Foto¬ 
grammi. Viene presentata una scelta 
di sei differenti strumenti di disegno, 
sei linee di vari spessori e cinque ti- 
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Tavola 2. Opzioni del menù Fotogrammi 


Opzione 

Annulla 

Taglia Fotogramma 


Copia Fotogramma 
Incolla Inserisce 

Incolla Rimpiazza 
Incolla e Unisce 

Importa Appunti 

Strumenti 
Ciclo Continuo 


Descrizione 

Annulla l'ultima azione di disegno o di scorrimen¬ 
to. 

Toglie un fotogramma dal film e lo mette negli 
Appunti di MCK. I fotogrammi che seguono ven¬ 
gono spostati in modo da non lasciare spazi 
vuoti. 

Esegue una copia del fotogramma corrente e la 
mette negli Appunti di MCK. 

Inserisce il fotogramma che si trova negli Ap¬ 
punti di MCK subito prima del fotogramma cor¬ 
rentemente mostrato. Come conseguenza si ha 
anche che la lunghezza del film viene aumenta¬ 
ta di un fotogramma. 

Rimpiazza il fotogramma visibile con quello che 
si trova negli Appunti di MCK. 

Combina il fotogramma che si trova negli Appun¬ 
ti di MCK con iffotogramma correntemente visi¬ 
bile. 

Prende i dati disegno che sono stati copiati nel¬ 
l’Archivio Appunti dagli Appunti e li incolla nel fo¬ 
togramma corrente. 

Presenta la finestra degli strumenti utilizzabili 
per disegnare le scene. 

Prende il fotogramma correntemente mostrato 
e genera un loop di scorrimento continuo che 
può muovere in ogni direzione con incrementi di 
pixel a scelta. 




pi di retini. Selezionate la combina¬ 
zione che vi serve e fate clic sul bot¬ 
tone OK. L’uso di questi strumenti è 
simile all'uso degli strumenti in 
MacPaint: fate semplicemente clic 
nella finestra di editing e trascinate 
il cursore. Nella finestra di editing il 
disegno compare ingrandito tre volte 
e nella finestra più piccola si presen¬ 
ta in dimensione reale. 

Il menù Fotogrammi 

Il menù Fotogrammi contiene di¬ 
verse funzioni utili per lavorare con 
il fotogramma intero. Per compren¬ 
dere come funzionano pensate al fun¬ 
zionamento deH’Archivio Appunti. 
Potete tagliare o copiare fotogrammi 
verso gli Appunti di MCK oppure 
incollarveli dentro. Potete anche im¬ 
portare grafici che sono stati creati 
in MacPaint o MacDraw e usarli nei 
vostri film. Le opzioni del menù Fo¬ 
togrammi sono descritte nella tavo¬ 
la 2. Se sperimentate con MCK 
scoprirete molti e differenti usi per 
queste funzioni. 

Il menù Archivio 

Il menù Archivio contiene gli u- 
suali comandi Macintosh per i file 
(tavola 3). Le funzioni Nuovo, A- 
pri ed Esci prima di avere effetto con¬ 
trollano se avete fatto qualche cam¬ 
biamento al film. Se ne avete fatti 
vi viene chiesto se volete registrarli 
prima di cancellare il programma dal¬ 
la memoria. 

Il Proiettore Film del listato 2 è 
un corto programma che ha tutte le 
caratteristiche di MCK ma senza la 
larga finestra di editing (figura 2). 
Per mostrare un film selezionate A- 
pri dal menù Archivio e selezionate 
il file che desiderate vedere. Dopo 
che è stato caricato potete usare i co¬ 
ntendi per proiettarlo; i bottoni lavo¬ 
rano esattamente come i corrispon¬ 
denti bottoni in MCK (tavola 1). 

Preparazione di un film 

Fate partire MCK; quando appare 
la schermata iniziale fate clic sul bot¬ 
tone OK per togliere il copyright e 
poi usate lo strumento matita (che è 
lo strumento di default quando viene 
iniziato MCK) per disegnare una li¬ 
nea orizzontale posizionata più o me¬ 
no verso la metà della finestra. Nel¬ 
l’area superiore disegnate alcune 
montagne e colline con qualche nu¬ 


vola sopra. Poi selezionate Ciclo 
Continuo dal menù Fotogrammi. 
Scrivete 2 nel campo di editing con¬ 
traddistinto da Incremento e selezio¬ 
nate Sinistra come direzione dello 
scorrimento. Quando MCK ha termi¬ 
nato l’allestimento dello sfondo scor¬ 
revole visionate il film usando il 
bottone Con il bottone "<" si 
può proiettarlo all'indietro. Potete 
cambiare la velocità introducendo un 
numero nel campo di editing etichet¬ 
tato Velocità. Salvate infine il film 
con il comando Registra Come... 

Introducete ora un oggetto nella 
scena. Selezionate l'opzione Nuovo 
dal menù Archivio. Disegnate una 
ruota oppure una roccia rotonda nel¬ 
la metà inferiore della finestra di dise¬ 
gno usando la penna oppure lo stru¬ 
mento per disegnare cerchi e avanza¬ 
te al fotogramma successivo. 

Per creare l'illusione del movimen¬ 
to disegnate un’altra ruota nella stes¬ 
sa area. Non è necessario essere esat¬ 
ti, una ruota imperfetta darà una mi¬ 
gliore illusione di rotazione. Usate 
la vostra immaginazione e aggiunge¬ 
te dettagli per simulare l'effetto di ro¬ 
tazione. Disegnate altri cinque o sei 


fotogrammi e registrateli usando il 
comando Registra Come. 

Per fondere i due film selezionate 
il comando Unisci dal menù Ar¬ 
chivio, scegliete l'opzione "Ripeti il 
2° film fino alla fine" e la modalità 
OR per la miscelazione. Caricate la 
scena con le montagne per prima, 
poiché è la più lunga delle due, quin¬ 
di caricate il film con la ruota. 
MCK lavorerà per qualche tempo 
per combinare i due film. Quando 
MCK avrà finito fate clic sul botto¬ 
ne ">" per ammirare la vostra produ¬ 
zione. Vedrete una ruota che gira sul¬ 
lo sfondo di un panorama che scorre. 
Niente male per una prima prova di 
animazione col computer! E’ possibi¬ 
le usare MacPaint per produrre dise¬ 
gni e così pure si possono usare mo¬ 
tivi ricavati dalle collezioni di grafi¬ 
ca reperibili in commercio. La proce¬ 
dura più facile per trasferire questi di¬ 
segni consiste nel metterli dapprima 
nell'Archivio Appunti. Poi fate parti¬ 
re MCK, aprite l'Archivio Appunti, 
selezionate il disegno che volete im¬ 
portare in MCK e scegliete Copy 
dal menù Edit. Chiudete l'Archivio 
Appunti e selezionate Importa Ap- 
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Tavola 3. Comandi del menù Archivio 


Comando Funzione 


Nuovo 
Apri... 
Registra 


Registra Come ... 


Cancella il film che si trova in memoria e presen¬ 
ta un fotogramma vuoto. 

Richiama dal disco un film che era stato prece¬ 
dentemente registrato. 

Registra su disco il film con il nome corrente. Se 
è un film nuovo viene presentata la richiesta di 
un nome. 

Viene richiesto un nome e poi il film viene regi¬ 
strato sul disco. 


Unisci... 


Carica due film contemporaneamente e li fonde 
in uno solo. 

Si può scegliere fra quattro modalità: 

OR - I pixel che sono neri su uno o sull'altro dei due 
film rimangono neri. 

AND - Solo i pixel che sono neri in entrambi i fotogram¬ 
mi rimangono neri. 

XOR - Lavora come OR eccetto che quando due pixel 
neri risultano sovrapposti diventano bianchi. 

COPY - Rimpiazza il secondo fotogramma con il primo. 
Non si verifica alcuna combinazione di pixel. 


La funzione "Ripeti il 2° film fino alla fine" funzio¬ 
nerà correttamente solo se il secondo film è più 
corto del primo; quindi quando si scelgono i film 
da unire si deve selezionare per primo il film più 
lungo. 

Esci al Basic Chiude MCK ed il controllo ritorna all'MS BASIC. 


Esci alla Scrivania Chiude MCK e ritorna al Finder. 


Tavola 4. Principali subroutine 


Subroutine 

Pencil 

Shape 

ButCheck 

Prev 

Adv 

GoFrame 

F*layR 

PlayF 

Play 

Shift(LRUD) 

MenuCheck 

Verify 

Refresh 


Funzione 

Subroutine di disegno con la matita. 

Gestisce gli altri strumenti di disegno. 

Controlla quale bottone è stato premuto ed ese¬ 
gue la routine appropriata. 

Torna indietro di un fotogramma. Viene richiama¬ 
ta quando viene premuto il bottone ' « '. 

Avanza di un fotogramma. E' richiamata quando 
viene premuto il bottone ' » '. 

Presenta il fotogramma scelto nel campo di edi¬ 
ting 'Vai a'. 

Stabilisce le variabili per la proiezione all'indie- 
tro. 

Stabilisce le variabili per la proiezione in avanti. 
Proietta il film con le regolazioni predefinite. 

Routine per lo scorrimento a sinistra, destra, su 
e giù. 

Determina quale selezione di menù è stata fatta 
e chiama la routine appropriata. 

Routine chiamata quando viene eseguita una 
funzione che cancella il film corrente. 

Routine chiamata quando una finestra è stata 
coperta da un’altra finestra o da un Accessorio 
di Scrivania. 


punti dal menù Fotogrammi. Il dise¬ 
gno viene presentato sia nella fine¬ 
stra piccola di animazione sia in 
qi ella grande di editing. Se il dise¬ 
gno importato è troppo grande per 
rientrare nella finestra di animazione 
verrà tagliato per adattarlo. 

Un metodo interessante per sfrutta¬ 
re questa caratteristica di importare 
disegni consiste nel trasferire un dise¬ 
gno nel primo fotogramma del film 
e poi usare le opzioni di Copia e In¬ 
colla e gli strumenti di disegno per 
fare copie multiple ognuna un poco 
differente dalle altre. Per esempio, 
potete importare una faccia, incollar¬ 
la in diversi fotogrammi e quindi 
modificare la bocca in ogni successi¬ 
vo fotogramma per farla sorridere 
(oppure per farla diventare arcigna, 
se vi sentite in giornata negativa). 

Come introdurre MCK 

MCK richiede un Macintosh con 
almeno 512 Kb di memoria. Per scri¬ 
vere il programma caricate la versio¬ 
ne binaria di MS BASIC (la versio¬ 
ne 2.0 o successive). Quindi copiate 
il listato 1 così come stampato e 
salvatelo col nome MCK; poi copia¬ 
te il listato 2 e salvatelo come 
Proiettore Film. Se possedete un 
Macintosh Plus dovrete usare la ver¬ 
sione 2.1 di MS BASIC. Per un aiu¬ 
to nell'introduzione del listato, pote¬ 
te vedere la rubrica "Per chi comin¬ 
cia su Macintosh". 

Come lavora 

Quando viene fatto girare per la 
prima volta, MCK esegue l’inizializ- 
zazione dei menù, dello schermo e 
delle variabili. Il nocciolo del pro¬ 
gramma consiste in un loop princi¬ 
pale (etichettato Loop) nel quale vie¬ 
ne eseguita la scansione dell’attività 
del mouse, dei menù e dei bottoni e 
vengono intraprese le azioni appro¬ 
priate. Per esempio, se viene selezio¬ 
nata l’opzione di menù Apri la fun¬ 
zione MENU(O) restituisce un valo¬ 
re e il flusso del programma lascia il 
loop principale per chiamare la routi¬ 
ne MenuCheck che, a sua volta, ri¬ 
chiama la routine che si occupa del- 
J'apertura di un nuovo file. Alllnter- 
no della routine newFile, MCK acce¬ 
de a routine minori come Verify. 
Per registrare in memoria i fotogram¬ 
mi del film, MCK usa la matrice in 
doppia precisione Fg# il cui elemen¬ 
to Fg#(0) è il fotogramma Appunti. 
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La rete di lavoro 
oer condividere 
Macintosh™ 
e F IBM' 


nelle funzioni del calcolatore, non sono 
necessarie procedure particolari per 
accedere a programmi o documenti 
remoti. Per una completa funzionalità 
nella rete di lavoro, TOPS è il più facile 
da installare e da usare. 

La Convenienza di TOPS 

TOPS elimina il bisogno di avere un 
costoso "file server”. Ogni Mac o PC 
può essere un "file server” o utente allo 
stesso momento. Altre reti di lavoro 
che, non sempre possono dare queste 
prestazioni, costano molto di più di 
TOPS. 

TOPS permette al Vostro IBM di 
"parlare la stessa lingua” del Vostro 
Macintosh. 


LTntegrazione di TOPS 

TOPS Vi dà la possibilità di integrare 
totalmente il Vostro PC con la rete 
AppleTalk: con il software TOPS Print 
permetterete al Vostro PC di stampare 
direttamente sulla stampante Apple 
LaserWriter! 

Tramite il software che utilizzate 
normalmente sul Vostro IBM PC, sarà 
sufficiente impostare la stampa per una 
stampante Epson, perchè al resto 
penserà TOPS Print che "catturerà” la 
stampa trasformandola in postscript per 
gestire la LaserWriter. 

I Vantaggi di TOPS Print 

Oltre ai vantaggi dell’altissima qualità di 
stampa Laser, potrete collegare più di un 
PC e Macintosh in rete AppleTalk, per 
sfruttare la stessa stampante LaserWriter. 


TOPS è prodotto dalla 
Centram System West, Ine. USA 

Per informazioni rivolgetevi al 
Vostro rivenditore di fiducia 

Distribuito da: 


Via Morazzone, 8 21100 VARESE 
Tel. (0332) 236336 


_ 
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er la prima volta, il Vostro 
Macintosh può condividere 
documenti e periferiche con il 


Vostro IBM PC o compatibile; così, non 
è necessario avere nel Vostro ufficio 
solo Mac o PC. TOPS la sola rete di 
lavoro locale che collega i Macintosh ai 
PC, è la sola che permette una 
comunicazione in "tempo reale” tra 
questi sistemi operativi. 

La Compatibilità di TOPS 

TOPS è compatibile al 100% con la rete 
AppleTalk. Per la prima volta, potrete 
accedere e lavorare con documenti 
residenti su dispositivi remoti, 
esattamente come se fossero sul Vostro 
calcolatore, non importa con quale 
sistema operativo. Per esempio, potete 
lavorare con i Vostri documenti creati 
con Lotus D2~3 su IBM e modificarli 
su Vostro Macintosh usando Microsoft 
Excel e poi registrarli su disco rigido 
remoto IBM! 

La Versatilità di TOPS 

TOPS Vi dà tre reti di lavoro in una: 
Macintosh con Macintosh, Macintosh 
con PC, PC con PC. TOPS è il solo "file 
server” disponibile per reti di 
Macintosh. E TOPS lavora con tutti i 
dischi rigidi disponibili per Macintosh. 
TOPS è l’unica rete di lavoro che dà la 
possibilità agli utenti Macintosh di avere 
la protezione dei documenti. 

TOPS rende gli IBM PC "trasparenti” ai 
Macintosh e viceversa. Per gli utenti 
l’utilizzo di TOPS non comporta alcun 
cambiamento nell’uso dei programmi o 


MACINTOSH è marchio registrato dalla Apple Computer 

IBM è marchio registrato dall? International Business Machines Corp. 






















a' 



! 

Tavola 5. Principali variabili 

Variabile 

Descrizione 

Pattern() 

Matrice che contiene i cinque retini per disegna¬ 
re. 

F 

Numero del fotogramma corrente. 

EF 

Ultimo fotogramma del film. 

Tool 

Strumento di disegno in uso. 

Psize 

Dimensione della penna. 

Chng 

Flag che viene messo a uno quando viene fatto 
qualche cambiamento al film. 

Fg# 

Matrice che contiene i dati del film. 


Proiettore Film MCK 



nnnn 


150 1 Uelocità 

11 | Inizio 

DH Fine 


Figura 2. Il programma per 
la proiezione non ha ovviamente 
la finestra di editing. 


Sviluppo del programma 

Si era previsto di scrivere sul di¬ 
sco il contenuto di Fg# come file se¬ 
quenziale anche se il film avrebbe ri¬ 
chiesto parecchio più tempo per esse¬ 
re caricato. Sfortunatamente questo 
non lavora bene: quando un disegno 
viene ricuperato dallo schermo i nu¬ 
meri immagazzinati nella matrice 
Fg# sono, a volte, più grandi di 
quanto possano essere contenuti in 
un numero a doppia precisione. Nes¬ 
sun errore viene segnalato al momen¬ 
to, ma un errore di overflow si verifi¬ 
ca quando MCK tenta di rileggere 
dal disco lo stesso numero. Si è pro¬ 
vato quindi a registrare il file salvan¬ 
do i byte invece dei numeri effettivi. 
Il metodo funziona bene eccetto per 
il fatto che il file diventa troppo 


grande e troppo lungo da caricare. 

Infine è stato tentato un approccio 
completamente differente. Invece di 
scrivere la matrice di dati sul disco, 
la matrice stessa è stata convertita in 
stringa in formato PICTURE$. Per 
poterlo fare, ogni fotogramma del 
film viene disegnato con il comando 
PICTURE ON. . .PICTURE OFF, 
i dati vengono messi in una stringa 
e la stringa salvata sul disco. Quan¬ 
do si carica il file, viene semplice- 
mente eseguita una istruzione PIC- 
TURE dopo aver comandato l'Input 
di una stringa con i dati di un foto¬ 
gramma e quindi si pone (con GET) 
queirimmagine in una matrice. Que¬ 
sto metodo lavora meglio ed è il più 
veloce. 

Le routine per gli strumenti di di¬ 
segno hanno presentato un altro inte¬ 
ressante problema. Il primo strumen¬ 
to preparato per MCK è stato la ma¬ 
tita e questa routine è stata abbastan¬ 
za semplice da scrivere. Le equazioni 
per trovare la posizione nella fine¬ 
stra di disegno sono: 

x = INT((MOUSE(l)-20)/3)*3+20 
y = INT((MOUSE(2)-15)/3)*3+15 

La traccia della matita viene otte¬ 
nuta semplicemente disegnando un 
blocco 3x3 nella posizione calcola¬ 
ta ed un blocco lxl nella finestra 
in dimensione reale nella stessa posi¬ 
zione relativa. 

Siccome i motivi QuickDraw so¬ 
no sempre disegnati in alta risoluzio¬ 
ne non è possibile usare le routine 
QuickDraw per disegnare direttamen¬ 
te nella finestra di disegno. Invece 
vengono usate le chiamate alle routi- 


ATTENZIONE! 

I listati sono 
pubblicati alle 
pagine 117-122 


ne QuickDraw per disegnare nel ri¬ 
quadro più piccolo. 

Poi, usando i comandi GET e 
PUT, rimmagine viene trasferita nel¬ 
la finestra di disegno ingrandendola 
di tre volte. Il risultato è un po’ più 
lento di quanto sarebbe desiderabile 
ma lavora piuttosto bene, special- 
mente su un Macintosh Plus. 

L'altro problema che è stato neces¬ 
sario affrontare riguarda la funzione 
di unione, che lavora caricando si¬ 
multaneamente due file e combinan¬ 
doli insieme. 

Quando inizia il loop viene aperto 
il primo file e poi il secondo. Il pri¬ 
mo fotogramma del file 1 viene dise¬ 
gnato e posto in Temp#(0); il primo 
del file 2 viene disegnato e posto in 
Fg# nella posizione corrente. 

Il primo fotogramma del file 1 vie¬ 
ne quindi posto (comando PUT) sul¬ 
lo schermo; il primo del file 2 è po¬ 
sto (sempre con PUT) nella stessa 
posizione usando una delle funzioni 
OR, AND, XOR oppure COPY. 

Il fotogramma così ottenuto viene 
collocato di nuovo nella matrice 
Fg# alla posizione corrente. 

Se il secondo file termina prima 
della fine viene aperto di nuovo al 
suo primo fotogramma e il proces¬ 
so viene ripetuto fino al termine del 
primo file. 

Le routine principali di MCK so¬ 
no descritte nella tavola 4 e le prin¬ 
cipali variabili sono elencate nella 
tavola 5. Come potete vedere un 
programma grafico molto efficace 
può essere scritto sul Macintosh in¬ 
teramente in Basic grazie alle ottime 
routine del Toolbox che si trovano 
in ROM. Il listato 2, Proiettore 
Film, serve per rivedere il lavoro ul¬ 
timato, come se foste davanti al tele¬ 
visore. Fate un doppio clic sull'ico¬ 
na del programma e scegliete Film 
dal menù Archivio. I tasti per il fun¬ 
zionamento vengono usati come nel 
programma MCK. 


^ Questo programma è disponibile ^ 
su dischetto. L’elenco, I prezzi 
e le modalità d’ordine di questo 
e degli altri dischetti disponibili 
sono riportati nella rubrica 
l Disk Service. 
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-Syllabae- 

runico programma di sillabazione che permette 
la manipolazione del testo già formattato. 

Avrete già provato altri program- ker? Allora potete sillabare un intero 
mi di sillabazione. Ma prima di sii- testo o solo poche righe direttamente 
labare un articolo, una relazione, u- dal programma di impaginazione 
na lettera, dovevate salvarli come fi- della Aldus. 

le di testo: in parole povere, se aveva- Per finire, un’altra piacevole sor¬ 
te già predisposto corpi, caratteri, ne- presa. Il prezzo. Solo 150.000 lire, i- 
retti, corsivi, eccetera, vi perdevate va compresa, nei migliori computer¬ 
tutto e dovevate ricominciare dacca- shop. Oppure richiedetelo direttamen- 
po. Con Syllabae questo appartiene te utilizzando il coupon di questa pa- 
al passato. Non solo. Usate PageMa- gina. 

Syllabae è un prodotto Micro Progettazione Avanzata, distribuito in esclusiva da Editronica srl. 


Ritagliare, compilare e spedire a: Editronica Srl, Corso Monforte 39,20122 Milano. 

Desidero ricevere, senza aggravio di spese postali, il programma Syllabae al prez¬ 
zo di L. 150.000, con la seguente formula di pagamento (barrare la casella di pro¬ 
prio interesse). 

□ Allego assegno non trasferibile di L. _ intestato a Editronica Srl 

□ Allego ricevuta di versamento di L. _sul CC postale n° 19740208 ' 

intestato a Editronica Sri, Corso Monforte 39,20122 Milano. 

□ Pago fin d’ora con la mia carta di credito Bankamericard n°_ 

scadenza_ 

Cognome e Nome_ 

Via_ n° _ 

Cap_Città_Prov_ 

Data_Firma_ 


















CRICKET DRAW 

È un programma di disegno 
rivoluzionario che trasforma il 
Macintosh in uno strumento di 
layoro grafico professionale. 

È object oriented, si ha così 
il massimo della flessibilità dal 
punto di vista del disegno e 
della risoluzione di stampa. 

A disposizione ci sono un 
gran numero di strumenti nuo¬ 
vi, quali la possibilità di gestire 
una scala di grigi che va da 0 
a 100%, sfumate, stelle, griglie, 
griglie logaritmiche e curve di 
Bezier. 

La gestione dei testi in Cric¬ 
ket Draw è parte integrante 
dell'ambiente di disegno. Li¬ 
na volta scritto, il testo può es¬ 
sere gestito come un qualun¬ 
que altro oggetto, permetten¬ 
do una gran quantità di mani¬ 
polazioni e di effetti speciali. 

Volete ombreggiare il testo, 
disporlo lungo una linea, ruo¬ 
tarlo, inclinarlo, produrre effetti 
prospettici... con Cricket Draw 
è facile. 

Un generatore di codici PostScript 

PostScript è il linguaggio per la definizione della pagina che è 
stato assunto come standard nel desk top publlshing. Per ottene¬ 
re effetti speciali sofisticati su una stampante Laser è necessario 
conoscere il PostScript, a meno che non si usi Cricket Draw. Cric¬ 
ket Draw è infatti un generatore di codice PostScript che fa tutto il 
lavoro automaticamente, 

Cricket Draw può diventare un PostScript Editor che permette 
di cambiare e di intervenire direttamente sul codice PostScript in 
precedenza definito in maniera "trasparente" con l'editor grafi¬ 
co. 



Prestazioni incredibili 

• Rotazione libera, inclinazione e riflessione di tutti gli oggetti • Om¬ 
breggiatura automatica controllata • Sfumature con una scala di 
grigi da 0 a 100% con incrementi di 1 % • Fontane (più sfumature 
graduate) • Più tipi di caratteri con diversi stili entro lo stesso bloc¬ 
co di testo • Il testo può venire disposto lungo una linea qualun¬ 
que • Griglie e linee guida permettono l'allineamento automati¬ 
co • Effetti speciali per il testo (rotazioni, ombreggiature, inclinazio¬ 
ni, retinature ecc.) • Potenti e semplici comandi per l'editing degli 
oggetti • Righelli orizzontali e verticali e misure in pollici, millimetri, 
pica o pixel • Possibilità di definire lo spessore delle linee in incre¬ 
menti di 0,05 • Possibilità di lavorare in ingrandimento o riduzione • 
Gestione dei colori nella definizione del disegno (stampa a colo¬ 
ri sulla Image Writer II). 


Distribuito in esclusiva da: 

Corso Italia 149-34170 Gorizia - Telefono 0481 /30909 - 32790 



Disponibile negli Apple Center o per corrispondenza 

in versione italiana 


Configurazione: 

Macintosh 512/800, Plus, SE, II. 


Prezzo: 
580.000 lire + iva, 
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Trucchi ^ 

Trucchetti 

Scorciatoie 

Espedienti 

Scappatoie 

Stratagemmi 

Imbrogli 

Trottate 

Accorgimenti 

Cose strane 


Inizia da questo mese una serie di articoli praticissimi, 
con suggerimenti e piccoli trucchi per migliorare, 
agevolare e arricchire il normale lavoro su Macintosh. 


Trucchi 
e scorciatoie 


Inizia una serie di articoli nei quali 
verranno descritti dei metodi alterna¬ 
tivi per eseguire in maniera nuova o 
differente ciò che facciamo ogni gior¬ 
no con il Macintosh. Potrà trattarsi 
di una scorciatoia che accelera l'ese¬ 
cuzione di una operazione, una com¬ 
binazione di tasti che permette un'o¬ 
perazione altrimenti non possibile o 
la descrizione di una procedura per 
migliorare il lavoro con il Mac. 

Potremmo chiamarli trucchetti, se 
vi fa piacere, e vengono di tanto in 
tanto citati da riviste e pubblicazioni 
specializzate o, più frequentemente, 
passati di bocca in bocca tra gli uti¬ 
lizzatori del Macintosh, circondati 
naturalmente da un'aria di mistero. 
Un fatto è comune a questi trucchet¬ 
ti: quasi mai sono citati dai manuali 
e se, per ventura, lo sono, chi l'ha 
mai letto il manuale e, comunque, 
chi se li ricorda quando servono? 

Troverete in questi articoli un po' 
di tutto: come sfruttare meglio Mac- 
Write, come disegnare le icone, co¬ 
me usare un Accessorio della Scriva¬ 
nia, come ottenere effetti strani con 
MacPaint, come, in breve, sfruttare 
meglio il vostro Mac. Non sono rag¬ 
gruppati in un modo particolare ma 
Qgni argomento porta come intesta¬ 


zione l'applicazione o il dispositivo 
a cui si riferisce; viene citata anche 
la versione dell'applicazione sulla 
quale sono stati verificati; con una 
versione differente potrebbe non fun¬ 
zionare o comportarsi diversamente. 
Tenete presente che il comportamen¬ 
to può differire anche a secondo di 
quale configurazione di Macintosh 
state usando: pure queste differenze, 
quando conosciute, verranno citate. 

Uso generale 

Queste tre combinazioni di coman¬ 
di si trovano citate da qualche parte 
nel manuale, ma chi si ricorda esatta¬ 
mente dove, scagli la prima pietra. 

• Potete salvare l'immagine che a- 
vete sullo schermo, completa della 
barra dei menù, come documento 
MacPaint premendo i tasti Comando- 
Maiuscole-3; il documento viene sal¬ 
vato con il nome di Screen 0 sullo 
stesso disco che contiene l'applica¬ 
zione che state usando. E' possibile 
salvare fino a dieci schermate, che 
vengono numerate Screen 0, Screen 
1, ecc. fino a Screen 9; un bip del¬ 
l'altoparlante vi avverte se tentate di 
superare le dieci schermate oppure se 


non c'è più spazio. I documenti così 
ottenuti possono essere aperti con 
MacPaint e ulteriormente elaborati. 

• Se invece di avere un documento 
MacPaint preferite avere direttamen¬ 
te stampato su carta quanto compare 
sullo schermo dovete accendere l'Ima- 
geWriter, inserire il Blocco maiusco¬ 
le e usare i tasti Comando-Maiusco¬ 
le-4. Se vi interessa solamente la ri- 
produzione della finestra attiva e non 
tutto lo schermo, la combinazione 
da usare è Comando-Maiuscole-4 
senza il blocco maiuscole. 

Tutto questo funziona così come 
descritto sul Macintosh 128 e sul 
Macintosh 512 con la vecchia 
ROM. Sul Macintosh Plus e sugli 
altri nuovi Mac non funziona quan¬ 
do è premuto il pulsante del mouse; 
ciò significa che non si può avere la 
riproduzione dello schermo mentre 
un menù è esteso. 

• C’è un prezioso accessorio di scri¬ 
vania che permette di fotografare lo 
schermo in qualunque situazione. Si 
chiama Camera e potete trovarlo sul 
dischetto Free Software n. 35 di Ap¬ 
plicando. Con Camera (figura 1) 
potete regolare il ritardo dello scatto 


Camera Desk flcc., ©1985 by Keith A. Esau 
Send Pitture To: 

® MacPaint™ File O Imageinriter 

O Inuisible Cursor ® Normal Cursor 

Seconds Before Taking Pitture: 


m 


0K 


Cancel 


Instructions 


Figura 1. 


- _ Trottino normale - 

Testo normole 

- . opzione trottino - 

Testonormole 

Maiuscole trottino - 

Testo normole 

- - Maiuscole Opzione trottino 

- Testonormole 

- _ Trottino normale - 

Testo sottolineato 

-- - ODZione trottino - 

Testo sottolineato 

Mftinsrnle 1r«Mmn - 

Testo sottolineato 


— Testò sottolineato 


Tasta bertata 

. Punto normale - 

Testo sottolineato 

-.- - - Plinio normale - 

Tasta barteta 


Figura 2. 
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é flrchlulo Composizione Strumenti Caratteri Dimensioni Stile 


é flrchiuio Composizione Ricerco Formato Caratteri Stile 


Greco 


Colori Trasparenti 
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La lettere 'Alpha' (a) è la prima lettera dell'alfabeto greco. 


Figura 3. 


Figura 4. 


da 1 a 60 secondi e potete scegliere 
se avere la copia dello schermo sullT- 
mageWriter o in un file MacPaint. 
Il ritardo permette di eseguire qualun¬ 
que operazione (per esempio, aprire 
un menù) e di prepararsi per lo scat¬ 
to. Camera non può funzionare quan¬ 
do c’è attività del drive ma è, nono¬ 
stante questo, uno dei più utili 
accessori. 

Finder 5.3 

• Questa invece non è scritta nel 
manuale. Quando volete buttare nel 
cestino un documento che avete pro¬ 
tetto, il Finder fa il suo dovere avvi¬ 
sandovi che non può scartare un do¬ 
cumento, appunto, protetto. Potete 
ingannarlo se tenete premuto il tasto 
Opzione mentre trascinate il docu¬ 
mento nel cestino; il Finder esegue 
l’operazione e si comporta allo stes¬ 
so modo se usate questa procedura 
quando volete rimuovere un’applica¬ 
zione o il file di sistema; non vi 
chiede cioè la conferma "Vuoi vera¬ 
mente rimuovere l'applicazio¬ 
ne....?". Questa scorciatoia fa rispar¬ 
miare tempo; attenzione però, è an¬ 
che un buon sistema per cestinare 
un documento importante e per ac¬ 
corgersene troppo tardi. 

• Quando volete spostare una fine¬ 
stra dovete andare con il cursore sul¬ 
la barra dei menù, premere il pulsan¬ 
te del mouse e trascinare. Risultato? 
La finestra viene spostata ma viene 
anche attivata. Se fate la stessa ma¬ 
novra tenendo premuto il tasto Co¬ 
mando la potete spostare senza che 
venga attivata. 

MacWrite 4.5 

• Avete fatto lo scrolling di un lun¬ 
go testo e ora non riuscite più a tro¬ 
vare il cursore? Niente paura. Battete 
il tasto Enter e viene immediatamen¬ 
te presentata la pagina nella quale si 


trova il cursore. Questo è utile an¬ 
che quando aprite un documento, per¬ 
ché all'apertura viene presentata la 
stessa pagina sulla quale stavate la¬ 
vorando quando avete chiuso Mac¬ 
Write. Dovete però fare attenzione 
che nessuna parte di testo sia selezio¬ 
nata (o che sia rimasta selezionata al¬ 
la chiusura), perché il tasto Enter fa¬ 
rebbe cancellare il testo selezionato. 
Con Word non correte questo perico¬ 
lo, perché ogni selezione viene an¬ 
nullata al momento della chiusura. 
D’altra parte con Word non avete la 
necessità di usare il tasto Enter, per¬ 
ché all'apertura di un file il cursore 
si posiziona all’inizio del testo. 

• Un trattino è un trattino. Anzi 
due, perché due sono quelli riportati 
sulla tastiera del Macintosh. In effet¬ 
ti uno dei due non è un trattino ma 
dovrebbe valere come segno 'meno'; 
in pratica potete avere una miniera 
di trattini giocando con i tasti Opzio¬ 
ne e Maiuscole e con i diversi stili. 
Un effetto interessante è quello otte¬ 
nuto con la combinazione Maiusco- 
le-Opzione-trattino e testo normale: 
si ottengono trattini più lunghi di 
quelli standard — come questi — 
che riproducono i trattini usati tipo¬ 
graficamente per separare parti di te¬ 
sto; tecnicamente vengono chiamati 
'trattini emme' perché originalmente 
avevano la stessa larghezza di una M 
maiuscola. Con Maiuscole-trattino e 
selezionando testo sottolineato, se 
viene ripetuto, si ottiene una linea 
doppia. Nella Figura 2 trovate alcu¬ 
ne combinazioni; non è un elenco 
completo ma divertitevi un poco an¬ 
che voi ad esplorare la tastiera e pro¬ 
vate pure l’ombreggiato, gli apici, i 
pedici e gli altri caratteri come il 
punto, l’uguale e così via. 

• Premete il tasto Opzione con la 
barra spaziatrice: ottenete uno spazio 
duro, cioè uno spazio non divisibile. 
Significa che le due parole, quella 


prima e quella dopo lo spazio, forma¬ 
no un tutto unico e si comportano 
come se fossero una parola sola. 
Vanno a capo insieme, vengono sele¬ 
zionate come parola intera, vengono 
riconosciute dallafunzionericercaco- 
me una parola sola, ecc.Da utilizzare 
quando si desidera che due o più paro¬ 
le rimangano sempre unite: per e- 
sempio, Alfa Romeo o De Amicis, 
se gli spazi sono duri se ne andranno 
in giro sempre insieme. Questi Op¬ 
zione-spazi sono un poco più larghi 
degli spazi normali, ma sono più 
stretti di due spazi; questa particolari¬ 
tà può renderli utili al termine di u- 
na frase o di una parola in corsivo 
per evitare che il corsivo vada a so¬ 
vrapporsi al testo che segue. 

• Quando scrivete un testo per il 
quale dovete utilizzare un alfabeto 
non latino oppure caratteri speciali 
di cui diventa difficile ricordare la po¬ 
sizione sulla tastiera, potete ridurre 
l’area di scrittura quanto basta per 
mettere nella parte inferiore dello 
schermo l’immagine della tastiera 
che si ottiene con l’Accessorio Ta¬ 
stiera dal menù mela (Figura 3). La 
riduzione dell’area visibile di scrittu¬ 
ra non crea molti problemi e in com¬ 
penso è sempre disponibile la rappre¬ 
sentazione dei tasti, incluse le varia¬ 
zioni che si ottengono con i tasti 
Maiuscole e Opzione. Questo accor¬ 
gimento non è limitato a MacWrite. 

MacPaint 1.5 

• Quando in MacPaint si usa uno 
strumento con un retino (come il 
pennello o lo spray) e si disegna in 
un'area già disegnata, il secondo reti¬ 
no si sovrappone a quello sottostan¬ 
te e lo sostituisce. Si può ottenere 
l’effetto di miscelazione dei due moti¬ 
vi tenendo premuto il tasto Coman¬ 
do mentre si passa sul primo dise¬ 
gno. Nella figura 4 si vede un ret¬ 
tangolo diviso in quattro parti, ognu- 
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Figura 5. 



na con un retino differente. Nella par¬ 
te superiore il passaggio del pennel¬ 
lo ha cancellato il disegno sottostan¬ 
te; nella parte inferiore il pennello è 
stato usato con il tasto Comando e 
il disegno sottostante rimane visibi¬ 
le dando un interessante effetto di tra¬ 
sparenza. Questo trucco può essere u- 
tilizzato con il pennello, il secchio 
di vernice, lo spray e con tutti gli 
strumenti che danno immagini pie¬ 
ne, come è mostrato nella figura 
5. L'effetto che si ottiene è utilizza¬ 
bile per produrre chiaroscuri, om¬ 
breggiature, eccetera. 

• Avete mai cercato di scrivere 
con lettere bianche su fondo nero o 
retinato? Se lo fate semplicemente 
disegnando un area nera o retinata e 
scrivendoci sopra, il risultato è deci¬ 
samente triste. Il problema deriva 
dal fatto che ogni carattere si porta 
dietro un'area rettangolare che, quan¬ 
do viene messa su uno sfondo di co¬ 
lore, crea una sorta di cornice bianca 
intorno al testo (figura 6 a sini¬ 
stra). 

Un truccherò, piuttosto semplice 
per la verità, consiste nello scrivere 
il testo normalmente nella dimensio¬ 
ne e nello stile desiderati. Circondate¬ 
lo poi con il rettangolo di selezione 
delimitando l'area che deve essere ne¬ 
ra. Dal menù Composizione selezio¬ 
nate Inverti il colore e il testo com¬ 
pare in bianco su fondo nero (figu¬ 
ra 6 al centro). 

Con il rettangolo di selezione l'a¬ 
rea di sfondo è naturalmente di for¬ 
ma rettangolare, ma potete ottenerla 
di qualunque forma con una piccola 
variante della stessa tecnica. Scrivete 
il testo, circondatelo con la cornice 
della forma desiderata, circoscrivete 
tutto il disegno con il lazo e selezio¬ 
nate Inverti il colore. 

Se invece di avere il testo bianco 
su sfondo nero lo volete su uno sfon¬ 
do costituito da un retino, dovete 
riempire la cornice con un retino che 


sia il negativo del retino desiderato 
(figura 6 a destra). 

• Dal menù Composizione l'op¬ 
zione Contorni (oppure Comando-E) 
disegna tutto attorno al soggetto un 
contorno formato da una linea dello 
spessore di un pixel. Se mentre sele¬ 
zionate Contorni tenete premuto il 
tasto Maiuscole la linea di contorno 
assume lo spessore di due pixel; per 
le linee ad andamento orizzontale il 
contorno doppio viene disegnato sot¬ 
to la linea, per le linee verticali vie¬ 
ne disegnato a destra. Molto utile 
per creare ombreggiature. 

• State usando la matita? Premete 
il tasto Comando e fate clic con il 
mouse: vi troverete in immagine in¬ 
grandita e il disegno sarà centrato 
sulla posizione dove avete fatto il 
clic. Fate di nuovo clic con il tasto 
Comando e ritornate all'immagine 
in dimensione normale. 

• State usando la matita? Tenete 
premuto il tasto Opzione e il curso¬ 
re si modifica nella mano di sposta¬ 
mento. Funziona anche quando ci si 
trova in immagine ingrandita. 

• Vi piacerebbe che un disegno e- 
seguito con MacPaint comparisse co¬ 
me schermata di apertura quando ac¬ 
cendete il Mac? Niente di più facile. 
Potete farlo con ScreenMaker, un 
breve programma che si trova sul di¬ 
schetto n. 21 della collezione di Free 
Software offerta da Applicando. Il 
programma è scritto da Bill Atkin- 
son che è l'autore di MacPaint e nes¬ 
suno meglio di lui dovrebbe conosce¬ 
re come sfruttare il programma. 

Per utilizzare ScreenMaker si deve 
aprire MacPaint e tracciare un dise¬ 
gno nella parte superiore sinistra del¬ 
la pagina; la parte di disegno che ver¬ 
rà trasferita deve trovarsi in un'area 
di 512x342 pixel in alto a sinistra. 
Il disegno può anche essere importa¬ 


to da un altro documento con Taglia 
e Incolla, può provenire da una rac¬ 
colta commerciale di disegni o può 
essere l'output di un digitalizzatore e 
il tutto può essere rielaborato a pia¬ 
cere per personalizzarlo. Quando ave¬ 
te sistemato l'elaborato grafico nella 
zona indicata salvate il documento e 
uscite da MacPaint. Fate partire Scre¬ 
enMaker e selezionate l'opzione Doc 
to Screen dal menù File. 

Quando compare l'usuale finestra 
con l'elenco dei file fate doppio clic 
sul nome del documento dove si tro¬ 
va il vostro disegno (se si trova su 
un altro drive dovete selezionare il 
comando Unità disco). Viene chiesto 
se volete salvare con il nome di Star- 
tupScreen; rispondete affermativa- 
mente facendo clic su Registra e poi 
uscite da Screen Maker. 

Sulla scrivania si trova ora una 
nuova icona con il nome Startup- 
Screen che dovete inserire nella car¬ 
tella di sistema. Chiudete tutto e spe¬ 
gnete il Mac. Quando lo fate riparti¬ 
re con il dischetto così trattato, la 
schermata di apertura sarà quella da 
voi preparata. Il processo è natural¬ 
mente reversibile; per eliminare la 
schermata è sufficiente buttare nel ce¬ 
stino l'icona di StartupScreen. 

Il programma Screen Maker per¬ 
mette anche un'altra possibilità; se 
selezionate Screen to Doc dal menù 
File ottenete un documento Mac¬ 
Paint dalla schermata iniziale di qua¬ 
lunque programma. Per facilitare il 
posizionamento del disegno Mac¬ 
Paint, sul dischetto n. 21 del Free 
Software di Applicando trovate già 
predisposta-, con il nome- "S.MJFra- 
me", una maschera nella quale mette¬ 
re il disegno. Essa riporta le dimen¬ 
sioni esatte e la posizione dell'area u- 
tilizzata da Screen Maker. Inserite il 
disegno nella cornice, chiudete S.M. 
Frame, aprite Screen Maker e fate 
l’installazione come descritto sopra. 

Livio Fiorenti 
(continua) 
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Applicando ha un nuovo 



Abbonamento tradizionale con dono? 
Abbonamento biennale con supersconto? 

Oppure la nuovissima formula 
rivista con dischetto, per non avere più 
problemi di digitazione? 
Per tutti, comunque, tanti 
programmi, notizie, consigli e... 


\\axBUi 


L'abbonamento annuale con disco 
programmi per Macintosh 
prevede 10 numeri di Applicando, 
ognuno corredato di un dischetto 
da 3 pollici e 


1/2 su cui sono 

registrati tutti i programmi per 

Macintosh pubblicati sulla rivista. 

Inoltre sono compresi nel prezzo 

dell'abbonamento l'ultima 

edizione delle Pagine 

del software e 

dell'hardware 

per Apple e un M 

portadischetti. 


Postai* 


Utility Ecco 


come 

programmare il mouse II 

_ Grafica Doppia Hi-Res 
(t\c\o con scorrimento ^ 

)e nÙSÙ Giochi Distruggi JP 

pet 9 eS \ °heiisco spaziale ^ 

G\ocVA Scuola 3 dimensioni» 
a ^\ac senza lato nascosto 

V3\\\W Presentazioni Meglio^ 


Data base Cfs, 
prova su strada 

Mac-lbm PC Tutto 
sui collegamenti, 
tutto sull’emulazione 









L'abbonamento annuale con disco 
programmi per Apple II 
prevede 10 numeri di Applicando, 
ognuno corredato con un dischetto 
da 5 pollici e 1/4 su cui sono 
registrati tutti i programmi per Apple II 
pubblicati sulla rivista. 

Inoltre sono compresi nel prezzo 
deH'abbonamento l'ultima edizione 
delle Pagine del software e dell'hardware 

per Apple e un 
portadischetti. 


a rivista per Apple II 
Macintosh 


disKf 


Compilare e spedire il tagliando sottostante a 
Editronica srl, Corso Monforte 39,20122 Milano. 


Sì! Desidero sottoscrivere il seguente abbonamento: 


□ Abbonamento annuale con dono, che dà diritto a ricevere 10 numeri di 
Applicando e in omaggio l'ultima edizione delle Pagine del software e dell'hardware 
per Apple, il catalogo ragionato di tutti i programmi e dei maggiori prodotti hardware 
esistenti in commercio per Apple II e Macintosh, al prezzo di lire 60.000. 

□ Abbonamento annuale senza dono, che dà diritto a ricevere 10 numeri di 
Applicando, al prezzo di lire 50.000, con uno sconto di 10.000 lire sul prezzo di 
copertina. 

□ Abbonamento biennale con dono, che dà diritto a ricevere 20 numeri di 
Applicando e in omaggio l'ultima edizione delle Pagine del software e dell'hardware 
per Apple, il catalogo ragionato di tutti i programmi e dei maggiori prodotti hardware 
per Apple II e Macintosh, al prezzo di 100.000 lire. Inoltre lei risparmia ben 
20.000 lire sul prezzo di copertina. 

□ Abbonamento biennale senza dono, che dà diritto a ricevere 20 numeri 
di Applicando, al prezzo di lire 80.000, con uno sconto di 40.000 lire sul prezzo 
di copertina. 

□ Abbonamento annuale con disco programmi per Apple II, che dà 

diritto a ricevere 10 numeri di Applicando, 10 dischetti da 5 pollicLe 1/4 e le Pagine 
del software e dell'hardware per Apple, al prezzo di 260.000 lire. Infatti ogni numero 
le verrà recapitato direttamente a domicilio insieme con il dischetto con già 
registrati tutti i programmi per Apple II pubblicati quel mese. Inoltre, 
in dono, le verrà subito recapitato un elegante portadischetti. 

□ Abbonamento annuale con disco programmi per Macintosh, che dà 

diritto a ricevere 10 numeri di Applicando, 10 dischetti da 3 pollici e 1/2 e le Pagine 
del software e dell'hardware per Applee, al prezzo di 300.000 lire. Il dischetto che 
ogni mese le arriverà a domicilio conterrà tutti i programmi per Macintosh. 
Anche in questo caso le verrà inviato subito, in dono, un elegante portadischetti. 


□ Inviatemi i seguenti arretrati a 7.000 lire ciascuno (per l'elenco degli arretrati 
vedere alla pagina seguente. I nn. 1 e 2 sono esauriti): NN_ 


resente... 


Cap_Città_Provincia 

Data_Firma___ 


□ Allego assegno non trasferibile si L_ 
Corso Monforte 39, 20122 Milano. 


intestato a Editronica srl, 


□ Pago fin d'ora L._ 


_con la mia carta di credito BankAmericard 


.scadenza- 


d'Italia ad addebitare l'importo sul mio conto BankAmericard. 

Cognome_Nome- 

Indirizzo __ 


autorizzando la Banca d'America e 


□ Allego ricevuta di versamento di L_ sul C/C postale n. 19740208 

intestato a Editronica srl, Corso Monforte 39, 20122 Milano. 
























Numeri arretrati di 

Applicando 


...ma anche un 


3 - settembre/ottobre 1983 - Lire 7.000 * Un programma di Data Base accessi¬ 
bile a tutti • Ecco Logo in italiano • Una scheda e una telecamera e il tuo Apple ve¬ 
de • Etichette spiritose o bizzarre • Piccoli editori, club e associazioni possono 
raggiungere soci e abbonati facilmente • Equo canone con VisiCalc per padroni e 
inquilini • Una routine e la Epson M 80 stampa i grafici • Seconda puntata del cor¬ 
so di Basic • Con un uso accorto del WPL ecco pronto un documento di più pagine, 
personalizzato, con decine di opzioni • Dadi e punti (gioco). 

4 - novembre/dicembre 1983 - Lire 7.000 • Tre schede, una tastiera e un po’ di 
software: il computer diventa un'intera orchestra • Pianoforte, organo e violino in 
Pascal • Per imparare a leggere più velocemente (e fare esercizio di inglese) • E- 
logio del VisiDex • Grazie Lisa: cos'è e a chi può servire il rivoluzionario personal 
Apple • Rompiquindici: quindici pedine bianche da mettere nel giusto ordine • Per 
chi ha dischetti del Sistema Pascal, ecco una rassegna delle possibilità offerte e 
dei comandi a disposizione • Il programma Dedalus • Terza puntata del corso Ba¬ 
sic • Guida ragionata dei software in commercio per la gestione condominiale • U- 
na numeric keypad fatta solo di software. 

5 - gennaio/febbraio 1984 - Lire 7.000 • La tecnologia del mouse applicata al¬ 
l'Apple Il • In memoria i vostri impegni di un anno intero • Un programma per la con¬ 
tabilità semplificata • Un gioco per due, nel quale si danno battaglia cannoni di 
grosso calibro • Investor in portafoglio: uno dei migliori programmi che fornisce 
in tèmpo reale il quadro esatto di come vanno i propri investimenti finanziari; idea¬ 
le per la gestione del proprio portafoglio titoli • Quarta puntata del corso di Ba¬ 
sic • Il famoso gioco delle freccette in versione elettronica per Apple • Prima pun¬ 
tata di un facile corso di Pascal • Macintosh: piccolo, maneggevole, portatile. 

6 - marzo/aprile 1984 - Lire 7.000 • AppleWorks (Tre per te): un unico softwa¬ 
re per database, word processor e spreadsheet • Anteprima di Apple Ile: com¬ 
pleto e compatibile, ma anche portatile, leggero, versatile • Titoli di stato, cartel¬ 
le fondiarie, obbligazioni: l’Apple per difendere i risparmi • Un mostro tira l'al¬ 
tro: riuscirete a mangiarli? • Stress: un nuovo gioco per vincere lo stress • Memo¬ 
ria riga per riga: come localizzare parti di un programma velocemente con 
LineFinder • Seconda puntata del Pascal: cos'è un compilatore? • L'Applesoft 
per semplificare l'impaccamento dei record e il recupero delle informazioni • Gra¬ 
fici : il dump della pagina grafica da Apple II a una stampante semigrafica. 

7 - maggio/giugno 1984 - Lire 7.000 • ProDOS: il nuovo sistema operativo con la 
possibilità di usare il ProFile e il Mouse • Computer e pennello: Apple e i suoi capo¬ 
lavori» Topolino aiuta i bambini a riconoscere i numeri • Programmi top secret: im¬ 
pedite ai curiosi di ficcare il naso nei vostri programmi • Una cassetta di salvatag¬ 
gio per registrare i programmi più importanti • Grafica e animazione: sesta pun¬ 
tata dell'Applesoft • Diventa un disk jockey infallibile: l'Apple tiene in ordine l'ar¬ 
chivio dei tuoi dischi • Aiuto: un programma che vi consente di trovare subito gli 
errori di battitura e di correggerli tutti insieme. 

8 - luglio/agosto/settembre 1984 - Lire 7.000 • Personalizza i messaggi di er¬ 
rore dei tuoi programmi • Appliscuola: una nuova serie di articoli e programmi stu¬ 
diati per la scuola • Le Mans in poltrona: la corsa automobilistica più famosa del 
mondo • Due dita sono sufficienti per scrivere, ma con dieci... • Un computer per 
segretario • Trasformate il vostro Apple in un melodioso organo • La struttura 
dei dati: quarta puntata del corso di Pascal • La scelta della stampante è impor¬ 
tante: se l’accoppiata con il computer è vincente ... • Scritte lampeggianti e carat¬ 
teri che scorrono con l’Applesoft • Macintosh: 37 nuovi programmi: tutte le novità 
del NCC di Las Vegas. 

9 - ottobre 1984 - Lire 7.000 • Cinque modem per collegarsi con reti e banche 
dati • Ile contro Ile: fino a che punto sono compatibili? • Fuoco fatuo: un adventu- 
re game che mette alla prova anche i più esperti • Rotazione e traslazione delle fi¬ 
gure piane e somma delle forze parallele: seconda puntata di Apppliscuola • Ge¬ 
rarchia, sequenza e ombra per visualizzare il parentado: quinto appuntamento con 
il Pascal • Come ottenere grandi risultati nella grafica ad alta risoluzione utiliz¬ 
zando un Apple II e un TV color • Una semplice routine per disporre sempre della 
data memorizzata • Macintosh: Guida all’Ms—Basic. 

10 - novembre 1984 - Lire 7.000 • Una guida per entrare con l'Apple nelle reti 
nazionale e internazionale • L'Apple Ilo stila una graduatoria delle autovetture 
d'epoca • Come gestire tre attività professionali diverse con un Apple • Niente 
paura se inavvertitamente battete New o Fp! • Dos: un programma per ritrovare 
sempre i dati che sembrano scomparsi • L'ottava puntata di Applesoft: come man¬ 
tenere allineate le righe • Differenze tra Integer e Applesoft e lanauage card * 
Pascal • Appliscuola: rette nel piano cartesiano, equazioni e calcolo del coefficien¬ 
te di correlazione • Macintosh: Computerizzate il libro cassa con il Mac. 

11 - dicembre 1984 - Lire 7.000 • Una banca dati per avere sotto controllo un ar¬ 
ticolo, il suo numero di pagina, la rivista su cui è stato pubblicato • Per recupera¬ 
re un file cancellato accidentalmente • Tutti i trucchi per personalizzare l'Hello o 
per proteggere i listati da occhi indiscreti • L'Apple sulla scrivania: perché non 
lasciarvi un messaggio personalizzato? • Un tastierino numerico pronto a entrare 
in azione • Nella versione 1.7 del tal programma avete introdotto una variante, ma 


dove? Per saperlo subito e senza errori... • Tre animali feroci vi inseguono: riusci¬ 
rete a metterli in trappola? • Ultima puntata del corso di Pascal • Speciale Appli¬ 
scuola • Macintosh: Novità software e hardware. 

12-13 - gennaio/febbraio 1985 - Lire 7.000 • Per imparare a giocare a Bridge 
con l'Apple o perfezionarsi nella dichiarazione; il computer tiene il punteggio e fa 
da avversario • MicroCalc, un programma per capire VisiCalc e i pacchetti simili, 
che mette a disposizione un totale di 400 caselle • Un corso chiaro, semplice ed e- 
sauriente per imparare a usare AppleWorks e VisiCalc: in ogni articolo un modello 
pronto da usare, il primo è un budget professionale • Una potente utility che per¬ 
mette l'editing dei programmi • Aggiungere a un programma esistente delle i- 
struzioni DATA • Speciale Appliscuola: animazione di una rotazione. 

14 - marzo 1985 - Lire 7.000 • Un computer per meccanico, che ricorda tutte le 
operazioni di manutenzione • Per trasformare una parola o un disegno in un po¬ 
ster gigante • Un programma per ricreare sull’Apple qualunque percorso di Golf 
• Mentre imparate AppleWorks e VisiCalc potete costruire un utilissimo modello 
per compilare la nota spese in tre minuti • Un programma per imparare a contare 
in età prescolastica, un altro per ripassare le tabelline, un terzo per migliorare 
l'ortografia • Speciale Appliscuola: stima dei frutteti con l’estimo • Macintosh: Co¬ 
mando per comando, potete disegnare con uno dei maggiori e più creativi esperti 
del mondo • Grafici con Mac Chart • Hit parade del mese. 

15 - aprile 1985 - Lire 7.000 • Ricette perfette con l'aiuto del vostro Apple • 
Per scegliere se la vostra prossima automobile sarà diesel o a benzina • Un reper¬ 
torio di suoni e rumori di ogni genere per colonna sonora ai vostri programmi • Gio¬ 
care a volano con l'Apple • Un programma per sfruttare le qualità grafiche del¬ 
l'Apple • Un menu professionale per i vostri programmi: evidenziate con una bar¬ 
ra luminosa il programma da far girare • Continua il corso AppleWorks: il data ba¬ 
se • Appliscuola: un diagramma cartesiano per il calcolo del massimo comun diviso¬ 
re, e un programma di chimica • Macintosh: Fumetti con Mac • Magic e File Vision • 

16 - maggio 1985 - Lire 7.000 • Un sistema di data base nutrizionale per perso¬ 
nalizzare una dieta bilanciata, a lunga o a breve scadenza • Ancora un data base 
nel corso AppleWorks: come farsi un’agenda telefonica • Pompieri: un gioco d’azio¬ 
ne e abilità • Un programma capace di trasformare l'Apple II in un fedele e preci¬ 
so timer • Una tavola di disegno per emulare i più potenti programmi di 
CAD/CAM • Come scrivere un programma compiuto su una linea sola. Ecco i primi 
venti one—liner • Una utility che facilita il lavoro di correzione di un listato, ren¬ 
dendone più^comoda la lettura • Macintosh: Jazz • Hit parade del mese. 

17- giugno 1985 - Lire 7.000 • Le principali nozioni, un dizionario nautico e due si¬ 
mulatori di regate per entrare nel mondo della vela • Un programma che trasfor¬ 
ma l'Apple in una sofisticata calcolatrice RPN • Una piantina per pianificare qua¬ 
lunque itinerario stradale americano tra ben 171 città diverse • Un uragano si sca¬ 
tena sulla città: riuscirete a trovare rifugio? • Un'applicazione AppleWorks per 
la gestione di un negozio» Un programma per eseguire analisi statistiche con pre¬ 
visioni • Sparate a vista, senza essere colpiti • Continuano gli One-liner, i pro¬ 
grammi su una linea sola • Macintosh: Smooth T alker • Hit parade del mese. 

18 - luglio/agosto 1985 - Lire 7.000 • La versione per Apple di Trivia, il gioco 
che ha stregato mezzo mondo • Continua il corso AppleWorks con le funzioni del 
word processor • Una utility per personalizzare il bip segnala errori • Un pro¬ 
gramma per seguire l'andamento dei propri bioritmi mese per mese • Per sapere 
i consumi dell'auto senza affogare in calcoli e foglietti • Come esaminare l'anda¬ 
mento di un grafico di una funzione • Poche linee di programma per avere scritte 
perfettamente centrate su video e stampante • ProDOS: una lezione sotto forma 
di utility per imparare a programmare • Continua la serie degli one-liner • Macinto¬ 
sh: My Office • MacHardware: ThunderScan. 

19 - settembre 1985 - Lire 7.000 • Oracolo: per non sbagliare quando sono in 
ballo decisioni importanti • Digger e Claustrophobia, due giochi • Tutti i segreti 
per un collegamento in rete per 5-25 utenti • Tutti i conti dello studio legale: un 
programma per avvocati scritto da avvocati • Per caricare in memoria un pro¬ 
gramma in Applesoft al di sopra di un codice macchina • Apple Ile più mouse: ac¬ 
coppiata vincente per i movimenti cassa-magazzino • Altri cinque one-liner • Ini¬ 
zia una splendida serie di articoli sull'uso della grafica ad altissima risoluzione • Ma¬ 
cintosh: MicrosoftWord è un programma che vale davvero la pena di avere • Ag¬ 
giornatissimo catalogo di programmi e accessori. 

20 - ottobre 1985 - Lire 7.000 • Salute: come ricordare tutte le malattie e regi¬ 
strare le spese mediche • Come far parlare l'Apple II • Oroscopo personalizzato 
con grafici della carta del cielo natale • Stabilizzatori di corrente per non perde¬ 
re ore di prezioso lavoro • Dieci one-liner • Basic Writer consente il collegamento 
diretto tra l'ambiente di elaborazione testo e l'ambiente Basic • Come controllare 
il valore di una variabile per individuare gli errori • Ecco la seconda puntata sull'u¬ 
so della grafica ad altissima risoluzione • Speciale Appliscuola: simulazione di un e- 
quilibrio • Macintosh: nutrita hit parade del mese. 

21 - novembre 1985 - Lire 7.000 • Arredamento: con AppliArchitet • Grand 
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prix: una corsa d'auto stile arcade in Applesoft • Un modo per accedere diretta- 
mente alla routine di stampa by passando tutto il programma • Controllo diretto 
del cursore • Altri dieci one-liner • Per Apple II un nuovo, potente foglio elettroni¬ 
co integrato con grafici e data management • Prima puntata di un corso di pro¬ 
grammazione avanzata in Basic * Terzo articolo sulla doppia Hi-Res: le figure a 
blocchi • Macintosh: hard disk a confronto • Contabilità generale o forfettaria: 
tre pacchetti a confronto • Hit parade del mese. 

22 - dicembre 1985/gennaio 1986 - Lire 7.000 • Speciale: una rassegna comple¬ 
ta dei tipi di stampante, cori le caratteristiche tecniche e le prestazioni, e dei rela¬ 
tivi accessori e una tabella comparativa di trenta macchine provate direttamente 

• Memodesk: non la solita agenda elettronica ma un calendario intelligente da seri- 
vai sia «Simulazione in Hi-Res di una slot machine di BlackJack, come quelle di Las 
Vegas • Due programmi per gli studi dentistici • Continua il corso di programma¬ 
zione avanzata in Basic • Effetti speciali con Spinner • Dieci one-liner • Calenda¬ 
rio perpetuo dal 1753 in poi per Apple e Mac • Quarta puntata di grafica: anima¬ 
zione * Speciale Appliscuola: il numero di Avogadro • Macintosh: stampare un cata¬ 
logo professionale di alta qualità a costi contenuti • Hit parade. 

22 - febbraio 1986 • Lire 7.000 * Speciale editoria: Macintosh, Apple II, Laser¬ 
Writer e tutto il software necessario per creare un centro stampa autonomo • Co¬ 
me programmare il mouse dell'Apple II • Guerre stellari • Harmony: database, te- 
Xt editor, generatore di istogrammi • Come far scorrere 18 immagini sul video, 
per un effetto sorprendente • Grafica: scorrimento orizzontale di una stringa sul 
video • Corso avanzato di Basic (3) • Sette one-liner • Scuola: resoconto su Pisa 

• Funzioni e grafici tridimensionali • La tavola degli elementi chimici • Macintosh: la 
compatibilità Mac-IBM • Tutto sul CFS • L'hit-parade del mese. 

24 ■ marzo 1986 - Lire 7.000 • Speciale architetti e ingegneri: tanto software 
per risolvere al computer i problemi di computo e disegno • Executive Cardfile è 
un archivio intelligente, organizzato in più schedari, flessibili e potenti • Screen 
dump a 80 colonne in ogni momento della programmazione • Apple Maestro inse¬ 
gna a comporre musica anche agli stonati, e senza fatica • A che ora nascono i vo¬ 
stri file? Senza acquistare schede software, chiedetelo al programma Ora e da¬ 
ta Archiviare con il mouse, sull'Apple II: con Ped-one • Grafica: lo scorrimento 
verticale • Pronto PC? Un'agenda elettronica che compone anche il numero • Ap¬ 
pliscuola: disegni prospettici con rimozione delle parti nascoste e un trivia, per 
tutte le materie, da impostarsi a piacere • Macintosh: una guida all'acquisto del da¬ 
tabase giusto • Macnews • Linguaggi per la programmazione: come scegliere quel¬ 
lo adatto alle proprie esigenze • Grafici: un programma che sa crearli tutti e, so¬ 
prattutto, permette di esportarli. 

25 aprile 1986 ■ Lire 7.000 • Speciale comunicazioni: modem e banche dati, per 
attingere dati da ogni parte del mndo • Chart Manager per la gestione dei dati e 
la restituzione grafica in curve, barre e torte • Apple Checker, per chi ricopia i li¬ 
stati: controlla gli errori • Grafica: dentro la logica di programmazione in doppia 
alta risoluzione • Buffer di stampa: ricaviamolo proprio dall'Apple, che contiene u- 
na scehda memoria sempre inutilizzata • Oneliners • Appliscuola * Variazioni di ve¬ 
locità in funzione di concentrazione dei reagenti e temperatura • Macintosh: prova 
su strada del Bernoulli Box, che archivia su cartuccia • Macnews • Una database 
veloce, versatile e, per di più, personalizzato da una potente struttura a schede. 

26 - magaio 1986 - Lire 7.000 Speciale: gli spreadsheet più potenti per Apple II 
e Mac • Giochi: arriva finalmente l’adventure tutto italiano, bello e difficile • Grafi¬ 
ca: altri segreti sull'animazione in DHR • Appliscuola: un programma che risolve in 
un baleno sistemi di equazioni lineari • Ants! Il terrore, con le sembianze di 
gigantesche formiche, viene dal giardino • Oneliners • Quale sarà il futuro di Ap¬ 
ple II? Un'intervista con John Sculley e molte novità da Cupertino • Macintosh: met¬ 
tere in rete Sunol, il disk server piccolo e potente « Mac+//: un programma che si¬ 
mula su Mac il video Applesoft? Certo, per utilizzare ancora la vecchia biblioteca 
programmi del II • Windowd Toolbox, perché ogni programmatore vorrebbe po¬ 
ter modificare le finestre del toolbox • Bioritmi: simpatico e dotato di buona gra¬ 
fica, questo programma traccia le curve, le compara, dà il consiglio del giorno • 
Mac news. 

27 - giugno 1986 - Lire 7.000 Chitarra: imparare gli accordi con un maestro ec¬ 
cellente e davvero chiaro • Dischetti: archiviando con Unidisk e i dischi da 3,5 polli¬ 
ci si risolvono molti problemi • Reminder: un programma per non dimenticare nulla 
e pianificare tempo libero e vita in famiglia • Assicurazioni: una polizza casco per 
il computer • Grafica: più nessun problema nella gestione delle coordinate, se si la¬ 
vora con le figure a blocco • Postmaster: etichette insuperabili • Mitogame: gio¬ 
cando con Zeus succede che... • Appliscuola: trigonometria • Macintosh : lo chiama¬ 
ne software povero, ma spesso si rivela più potente dei cugini più costosi. E, in 
particolare, Ómnis 3 fa miracoli • Mac Banker: gestisce il conto corrente e stam¬ 
pa gli assegni • Leasing: i costi veri, la vera convenienza • Mac Plus: occhio agli in¬ 
compatibili! • Programmi: è possibile trasferire listati, da Applesoft a MS Basic. 
Molti programmi del II possono girare su Mac. 

28 - luglio /agostol986 - Lire 7.000 Per Apple II e per Macintosh, una rassegna 


del miglior software musicale • Millenote: una routine per comporre, e poi esporta¬ 
re, brani anche complessi • Planetario: la volta celeste del luogo che vuoi, dell'ora 
che vuoi... • Scatola nera: un classico tra i giochi di deduzione • Supershopper: co- 
mefar laspesaal meglio, senzasprechi né dimenticanze «Grafica: animazione velo¬ 
ce senza scambio di pagina • Macintosh Gin: un gioco con le carte bellissimo, di cui 
però è arduo calcolare il punteggio. Con questo programma non è più un proble¬ 
ma • Reset: un aiuto per chi programma in MS Basic • Cronometro: al sessantesi¬ 
mo di secondo, con la stampa dei parziali • Radion Tyrant: il gioco nella reggia del 
tiranno • Text file: un'utility per correggere più in fretta i listati. «Macnews. 

29 • settembre 1986 ■ Lire 7.000 Cartoni animati: tutti Walt Disney con Movie 
construction set • Stampanti: arrivano tredici nuove stampanti per Apple II tar¬ 
gate Ivrea • SMAU 86: novità • Utility in accoppiata vincente per chi programma 
in Applesoft: un programma comprime le immagini Hi-Res e uno potenzia le gestio¬ 
ne deH’l/0* Finestre e icone: come sul Mac, anche sul II lagestione diventaamiche- 
vole • Grafica: animazione e spostamento insieme! • Macintosh Borsa: Investor è 
tra i migliori programmi di gestione titoli, ma costa infinitamente meno... • Melina: 
i nuovi accessori da scrivania • FreeSoftware: ora anche in Italia, grazie ad Appli¬ 
cando, il software gratis • I Ching: il più antico metodo di divinazione in una raffi¬ 
nata versione • Macnews. 

30 - ottobre 1986 - L. 7.000 • Tutto sul nuovo Apple II GS amichevole come il 
Mac e potentissimo • Servotelefono: la rubrica elettronica. • Un’utility che esten¬ 
de il potenziale dell'Applesoft in Dos 3.3, basata sul comando Ampersand (&) • 
Gioco: riuscirà Sammy il Pinguino a salvare la sua isola di ghiaccio dagli invasori? • 
Grafica: scrivere sullo schermo dell'Hi-Res • Con Turtle Basic bastano 24 parole 
per programmare ia grafica e stampare testi in alta risoluzione • Un eccellente 
correttore ortografico per i testi scritti in italiano o in Pascal. • Macintosh: Let¬ 
tura veloce in italiano e in inglese • I nuovi monitor 15" a colori • SuperSorter è un 
programma di ordinamento dati al vostro servizio. 

31 - novembre 1986 - L. 7.000 • Il Computest per controllare la vostra forma fisi¬ 
ca in vista delle vacanze sugli sci • Una libreria per conservare le subroutine di uti¬ 
lizzo frequente • Tutte le schede di espansione di memoria per Apple II • L'Apple 
suona 'Happy Birthday' • Un programma per realizzare listati formattati e dia¬ 
grammi di flusso: potrete correggere un listato anche dopo molto tempo • Far 
scorrere il testo sullo schermo dell’Hi-Res • Vi presentiamo tutti i caschi silenzia¬ 
tori per stampanti disponibili sul mercato • ProWriter: dà più potenza al word 
processing • Macintosh: Abbiamo provato per voi lo Scanner S200 dell'Agfa Ge- 
vaert che trasforma testi e disegni in file • Zoom: un database grafico per dise¬ 
gni e testi • Hard disk: 640 Mega in cascata • Disk editor per recuperare i file 
perduti • Riclassificazione di un bilancio sfruttando la potenza di Excel. 

32 - dicembre86/gennaio 87 - L. 7.000 - Un ponte tra DOS e ProDOS: i due 
sistemi operativi sono disponibili a piacere su un solo dischetto • Compass Quiz: 
Aiuta i ragazzi a imparare i punti cardinali usando la grafica in alta risoluzione • 
Plotter automatico: consente la stampa in alta risoluzione di diagrammi di 
funzione con messa in scala automatica. • Ram Disk 64: un risparmio di tempo da! 
60 al 90% grazie a questa routine di emulazione • Macintosh: tutti in rete con 
AppleTalk • dBase: anche per Mac il potente database relazionale programmabile 

• Abbiamo provato per voi il nuovo hard disk Hyperdrive FX 20, veloce e 
affidabile * Mac Music: un programma per suonare sfruttando le quattro voci del 
sintetizzatore interno del Mac. 

33 - febbraio 1987 - L. 7.000 • Due software per IIGS: GSPaint e GSWrite • Ge¬ 
stione del conto corrente con AppleBanker • Quattro programmi didattici in Ap¬ 
plesoft per giocare con i vostri figli • List Master: un’utility che consente un’espo¬ 
sizione più organizzata del listato, favorendo la ricerca degli errori • Siete stan¬ 
chi del solito bip? Ecco Duetto, per inserire nei vostri programmi il suono a due 
voci • Comincia in questo numero una serie di articoli sull'intelligenza artificiale • 
E’ arrivato il FreeSoftware per Apple II • Macintosh: • novità per la rete Apple¬ 
Talk • Tutte le novità presentate al MacWorld Expo di San Francisco • Giocare a 
briscola scoperta contro il Mac. 

34 • marzo 1987 • L. 7.000 • Tutti i programmi compatibili con Apple IIGS • Ge¬ 
neratore di suoni per i vostri arcade con Arcade sound editor • Tre super utility: 
una biblioteca di routine, un comando di Copy e una protezione per il dischetto • 
Un programma per creare effetti-dissolvenza sullo schermo Hi-Res • Seconda 
puntata sull'intelligenza artificiale ♦ Applicazione AppleWorks per la gestione 
completa del conto corrente bancario • Un gioco che è anche un propramma didat¬ 
tico, in quanto studia le possibili traiettorie di un pallone da football in un giorno 
di vento * Macintosh: due nuove macchine e una serie di periferiche dalle prestazio¬ 
ni stupefacenti accrescono la famiglia dei Mac • MacTime: imparare a gestire me¬ 
glio il proprio tempo con un programma appositamente sviluppato sulla traccia 
del sistema Time Manager • Compilatore per il Basic Microsoft • Shopper Mac, 
per la gestione della dispensa domestica • MacBanner, crea manifesti e striscioni 

• Orto: un’applicazione dei programma Filevision per la gestione di un orto o un 
giardino. 





ESPANSIONI 


Data la popolarità di AppleWorks e di altri programmi 
a memoria intensiva aumenta sempre più il numero dei possessori 
di Apple II che espandono la memoria base del loro Apple... 

Ma cosa scegliere, nel campo delle espansioni di RAM? 


Più potenza alla 
memoria 


L'adattabilità dei computer della 
serie Apple II è stupefacente. Parten¬ 
do dall’Apple base potete aggiunger¬ 
gli pressoché tutti i perfezionamenti 
inserendo schede accessorie negli 
slot di espansione. 

La più recente di queste aggiunte è 
costituita dalle schede RAM di alta 
capacità. Una sola scheda può espan¬ 
dere la memoria otto volte o anche 
più, trasformando l’Apple in una po¬ 
tente macchina utente. 

Vari fabbricanti stanno sfornando 
schede RAM sempre più sofisticate. 
In questo articolo sono descritte no¬ 
ve delle concorrenti più quotate in 
questa gara delle schede RAM (ta¬ 
bella 1). 

AppleWorks e schede RAM 

Con una scrivania di 55 K su cui 
lavorare, gli utilizzatori di Apple¬ 
Works 1.3 sono ottimi candidati al¬ 
l'uso di una scheda RAM aggiunti¬ 
va. Pensate agli spreadsheet che po¬ 
treste creare con una scrivania di un 
megabyte (MB)! 

• Standard. 

Tutte e nove le schede funzionano 
con AppleWorks. Vengono ricono¬ 
sciute automaticamente dal program¬ 
ma o un software patch permette ad 
AppleWorks di riconoscere la sche¬ 
da. 

In genere le schede seguono o lo 
standard dell’Apple II Memory Ex- 
pansion Card (con tutta la memoria 
direttamente indirizzabile) o quello 
reso popolare dalla scheda RamWor- 
ks dell’Applied Engineering (in cui 
la scheda è considerata memoria ausi¬ 
liari ed è indirizzata tramite la com- 


42 











MegaRamPtus 


n s nurduure frati, 

S Performance 


scrivania. Inoltre i patch di RamWor¬ 
ks e di MultiRam espandono la capa¬ 
citai del database e il numero di righe 
del word processor. 

Spesso i patch permettono ad Ap¬ 
pleWorks di girare in varie maniere, 
a seconda delle vostre necessità du¬ 
rante una determinata seduta di lavo¬ 
ro. AppleWorks è spezzato in vari 
segmenti che si sovrappongono a 
certe parti del programma principale 
in memoria. Essi vengono normal¬ 
mente caricati dal dischetto secondo 
necessità e scartati quando non servo¬ 
no più. 

Un metodo di lavoro con una sche¬ 
da RAM consiste nel caricare tutte 
le sovrapposizioni di programma nel¬ 
la RAM quando si fa il booting di 
AppleWorks e accedere a esse, anzi¬ 
ché ricorrere al drive, ogni volta che 
occorre un nuovo segmento del pro¬ 
gramma. Parecchi patch permettono 
di copiare sulla RAM un sottoinsie¬ 
me di sovrapposizioni, lasciando spa¬ 
zio aggiuntivo alla scrivania. Per e- 
sempio i patch di entrambe le schede 
della Checkmate Technology - Mul¬ 
tiRam Ile e MultiRam RGB - con¬ 
sentono di far eseguire ad AppleWor¬ 
ks questi comandi: 

1. Caricare tutte le sovrapposizioni. 

2. Caricare solo quelle sovrapposi¬ 
zioni che sono specifiche dello 
spreadsheet, del database o del word 
processor. 

3. Eseguire il programma direttamen¬ 
te dal dischetto (senza caricamento di 
alcuna sovrapposizione). 

La maggior parte dei nuovi patch 
di questo tipo estromette automatica- 
mente le sovrapposizioni dalla me¬ 
moria se AppleWorks esce dallo spa¬ 
zio di scrivania, e poi torna a opera¬ 
re dal dischetto di AppleWorks. 

Le schede che impiegano lo stan¬ 
dard dell'Applied Engineering posso¬ 
no usare solo il 75-80% della loro 
capacità quando girano in AppleWor¬ 
ks. Ciò significa che sono inutilizza¬ 
bili da 80 a 300K. Questa perdita di 
memoria è. funzione tanto di Apple¬ 
Works e del suo gestore di memoria 
quanto delle schede RAM e dei loro 
patch di AppleWorks (per avere le ci¬ 
fre esatte riguardanti le varie schede 
si veda la tabella 2). 

La Legend S’Card e Flipster non 
seguono né lo standard dell'Apple né 
quello dell'Applied Engineering, e ri¬ 
chiedono entrambe un patch di Ap¬ 
pleWorks. 


«€S€fiRCH INC. 


mutazione di banco). AppleWorks 
1.3 riconosce automaticamente qual¬ 
siasi scheda che segua lo standard 
Apple; le schede di questo tipo com¬ 
prendono l'Apple Memory Expan- 
sion Card, la SprintDisk e la Ram- 
Factor. 

Queste schede non richiedono un 
patch di AppleWorks, e il program¬ 
ma può girare o dal dischetto o da 
un RAM disk dopo l’impiego di FI- 
LER per copiare il programma sulla 
RAM. Ognuna delle schede può esse¬ 
re installata in qualsiasi slot esclusi 
il 3 e l'ausiliario, e può essere utiliz¬ 
zata su qualsiasi Apple II escluso il 
Ile. 

Nota: la scheda RamFactor viene 
fornita con un patch di AppleWorks 
che espande la capacità per i record 
di database e le righe di word proces¬ 


sing, ma anche senza il patch Apple¬ 
Works riconosce la scheda. 

RamWorks II, MegaRamPlus, 
MultiRam Ile e MultiRam RGB se¬ 
guono lo standard deH’Applicd Engi¬ 
neering. 

Esse funzionano solo nello slot au¬ 
siliario, sono compatibili solo con 
il Ile e sostituiscono la scheda a 80 
colonne. Sono una buona scelta per 
chi acquista o perfeziona un Ile, e 
per i possessori di Apple che hanno 
esaurito gli slot a disposizione e so¬ 
no disposti a eliminare la loro sche¬ 
da 80 colonne e a sostituirla con la 
combinazione 80 colonne/espansio¬ 
ne di memoria offerta da queste sche¬ 
de. 

Ognuna delle schede richiede un 
patch di AppleWorks per mettere la 
propria memoria a disposizione della 





Tavola 1. Elenco dei distributori 

In vendita in Italia: 

In vendita solo in America: 

Apple II Memory Expansion 

RamFactor e RamWorks II 

Card 

Applied Engineering 

P.Ò. Box 798, Carrollton, 

Apple Computer Italia 

Via Bovio 5, Reggio Emilia 
e Rivenditori Appiè 

TX 75006 

256Kb L. 250.000 

MultiRam Ile e RGB 

1Mb L 670.000 

Checkmate Technology Ine. 

509 South Rockford Dr.,Tempe, 

MegaRamPlus e SprintDisk 

AST Research Ine. 

AZ 85281 

Distribuito da: DHT srl 

Flipster 

Via Quintino Sella 4, Milano 

Cirteck (UK) Ltd. 

Greengate Productions Ine. 

Megafìam Plus 1Mb L. 380.000 

SprintDiskl Mb L. 1.350.000 

RamPak IIGS 

2041 Pioneer Ct, San Mateo, 

CA 94403 

Orange 

Legend S'Card 

Distribuito da: Elcom 

Legend Industries Ltd. 

Corso Italia 149, Gorizia 

2220 Scott Lake Rd., Pontiac, 

512Kb L 458.000 

MI 48054 


Le due schede hanno in comune il 
vantaggio che praticamente tutta la 
memoria è a disposizione della scri¬ 
vania, anche con le sovrapposizioni 
caricate nella RAM. Quando Apple- 
Works esaurisce la memoria della 
scrivania le sovrapposizioni vengo¬ 
no sovrascritte e AppleWorks torna 
a girare dal dischetto. 

• Prove di riferimento. 

Per testare la velocità di esecuzio¬ 
ne delle schede è stato scelto un me¬ 
todo tipico di esecuzione di Apple¬ 
Works. Quando l’opzione era dispo¬ 
nibile (in RamFactor, RamWorks, 
MultiRam Ile, MultiRam RGB e 
S'Card) sono state installate tutte le 
sovrapposizioni di AppleWorks nel¬ 
la scheda RAM. 

Questo permette di saltare avanti e 
indietro fra i segmenti del program¬ 
ma senza dover accedere al disco. Per 
due delle schede dello standard Apple 
(Apple II Memory Expansion Card e 
SprintDisk) è stato copiato per inte¬ 
ro il dischetto di avviamento e il di¬ 
schetto di programma su un RAM 
disk (meno ProDOS e CatalystDe- 
sktop). Dato che non era prevista al¬ 
cuna altra opzione, con le schede 
Flipster e MegaRamPlus è stato ne¬ 
cessario eseguire AppleWorks dal di¬ 
schetto. 

Sono state eseguite due prove di ri¬ 
ferimento su uno spreadsheet di Ap¬ 
pleWorks. La prima è consistita in 
un test inteso a vedere quante celle 


si potevano riempire. La prima 
schermata dello spreadsheet di prova 
è visibile in figura 1. Con il co¬ 
mando Copy (Mela vuota-C) è stata 
copiata nel maggior numero di celle 
possibile, colonna per colonna, una 
formula che aggiungeva 0.001 al 
contenuto della cella immediatamen¬ 
te a sinistra. Quando AppleWorks e- 
sauriva lo spazio di scrivania, diver¬ 
se delle versioni di AppleWorks sot¬ 
toposte a patch tornavano a eseguire 
il programma dal dischetto. Veniva¬ 
no allora aggiunte ulteriori celle fi¬ 
no a quando accadeva un secondo er¬ 
rore. 

Da questo esercizio si apprendono 
due preziose lezioni. Primo, non cer¬ 
cate mai di fare questo test senza ave¬ 
re un Unidisk da 3,5 pollici o un har- 
d disk. La creazione ex novo di ogni 
spreadsheet può richiedere da qualche 
ora a un'intera giornata. Se intendete 
lavorare con vasti spreadsheet o data¬ 
base (qualsiasi cosa più grande di 
quanto può contenere un floppy da 
5,25 pollici) fareste bene a procurar¬ 
vi un dispositivo di memorizzazione 
ad alta capacità. 

In alternativa potreste acquistare u- 
na delle schede che offrono l'opzione 
di suddividere i file fra più dischetti 
(si veda nella tavola 2 la riga inti¬ 
tolata Salva/carica su più dischetti). 
Secondo, le operazioni che riempio¬ 
no un gran numero di celle, anche 
senza accessi al dischetto, sono len¬ 
te. 


Era evidente che certe schede im¬ 
piegavano più tempo di altre a com¬ 
pletare la procedura di copia; per te¬ 
stare questo fatto è stato aggiunta 
un'altra prova di riferimento, che mi¬ 
surava il tempo impiegato per copia¬ 
re una formula in circa 6.000 celle. 
Anzitutto le colonne da A a C sono 
state riempite con la formula usata 
nel precedente spreadsheet di prova 
ed è stato eseguito un ricalcolo. Poi, 
mediante l'opzione Copia nel foglio 
di lavoro di AppleWorks, è stata co¬ 
piata (mediante la relativa opzione) 
la formula della cella CI nel blocco 
di celle compreso fra DI e 1999. 
Quindi è stato eseguito un ricalcolo 
completo. 

I tempi elencati nella tavola 2 
sono stati misurati partendo dal mo¬ 
mento in cui iniziava l'operazione di 
copia e terminando con il completa¬ 
mento del ricalcolo. 

Per quanto nella maggior parte dei 
casi questo procedimento abbia ri¬ 
chiesto 8 minuti, in due casi ne ha 
richiesti più di 14, quasi il doppio! 
La RAM sarà la RAM, ma non tutti 
i patch di AppleWorks sono uguali. 

Apple II Memory 
Expansion Card 

L'Apple II Memory Expansion 
Card della Apple Computer ha un 
vantaggio eccezionale: è uno degli 
standard di più vasta accettazione per 
le schede di memoria e molti pro¬ 
grammi, come AppleWorks, lo rico¬ 
noscono automaticamente e utilizza¬ 
no la memoria aggiuntiva. Program¬ 
mi e file di dati possono essere co¬ 
piati sulla scheda mediante il Pro¬ 
DOS User's Disk o il disco Utilities 
di Sistema della Apple, e dalla sche¬ 
da si possono eseguire molteplici 
programmi. 

La Memory Expansion Card fun¬ 
ziona solitamente come RAM Disk. 
In ProDOS o in Apple Pascal 1.3 la 
scheda si formatta automaticamente 
la prima volta che vi si accede. In 
DOS 3.3 è il comando IN#n (dove n 
è lo slot nel quale la scheda è instal¬ 
lata) a formattare la scheda. Qualun¬ 
que sia la quantità di memoria sulla 
scheda, si può usare un massimo di 
400K per simulare un singolo disk 
drive in DOS 3.3. 

Nella scheda è incorporato un test 
di diagnosi della memoria. Il manua¬ 
le è multilingue e comprende istru¬ 
zioni in inglese, tedesco, francese e 
spagnolo. 
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Tavola 2. 

Schede RAM a confronto 





Dple II Memory 

xpansion Card 

o 

o 

l£ 

1 

am Works II 

legaRamPlus 

co 

9 

c: 

Gl 

lultiRam Ile 

ard 

tu n 

OC ° 
s co 
=> O 

ultiRam Ile 

MultiRam RGB 

a> 

co 

.Q. 

?gend S'Card 

co 

o 

i§ 

Q- 


<C LU 

oc 

cc 


CO 

^ o 

^ cc 

^ CD 

lH 


cc 

Memoria testata 

256K 

1024K 

1024K 

1024K 

1024K 

768K 

1024K 

1792K 

1024K 

1024K 


Max. Capacità 












memoria 

1024K 

1024K 

1024K 

1024K 

1024K 

1024K 

768K 

1024K 

1024K 

1024K 

4096K 

Assegnazioni slot 

Non aus. 

Non aus. 

Solo 

Solo 

Non aus. 

Solo 

Solo 

Non aus. 

Non aus. 



o3 

o3 

aus. 

aus. 

o3 

. aus. 

aus. 





Compatibilità: 

II 

X 

X 



X 





X 


Il Plus 

X 

X 



X 




X 

X 


Ile 

III 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 


Patch di AppleWorks? 

No 

Sì 

Sì 

Sì 

No 

Sì 

Sì 

Sì 

Sì 

Sì 

Sì 

Metodi di gestione 
di AppleWorks: 












Interamente da 
dischetto 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 


Carica in permanenza 
tutte le sovrapposizioni 


X 

X 



X 

X 

X 


X 


Carica specifiche 
sovrapposizioni 
di sezione 






X 

X 

X 




Carica 

temporaneamente 
le sovrapposizioni 


X 








X 


Copia AppleWorks 
su RAM disk 

X 

X 



X 




X 



Memoria scrivania (1) 
AppleWorks 

95K 

1012K 

727K 

944K 

857K 

568K 

758K 

1280K 

1012K 

1024K 


Max. celle 
spreadsheet 

3.378 

40.086 

29.097 

36.804 

34.051 

21.098 

30.706 

48.075 

34.094 

34.000 


Record database (4) 
aumentati a max 

Nessuno 

5.300 

15.200 

Nessuno 

Nessuno 

5.350 

5.350 

5.350 

Nessuno 

Nessuno 


Righe word proc. (4) 
aumentate a max. 

Nessuna 

5.300 

15.200 

Nessuna 

Nessuna 

Nessuna 

Nessuna 

Nessuna 

Nessuna 

Nessuna 


Copia formula 

Nota 6 

8 min. 

8 min. 

14 min. 

8 min 

8 min 

8min 

8 min 

8min 

14 min 


in Ó1 a DI-1999 

5sec 

36 sec 

31 sec 

5 sec 

2 sec 

6 sec 

20 sec 

31 sec 

51 sec 



Salva/carica 
su più dischetti 

No 

Sì 

Sì 

No 

No 

Sì 

Sì 

Sì 

No 

No 


Sistemi operativi supportati: 











DOS 3.3 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 


ProDOS 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 


Pascal 

X 

X 

X 


X 

X 

X 

X 

X 

X 


CP/M 


X 

X 



X 

X 

X 

X 

X 


Opzioni aggiuntive: 
Memoria in serie 

Nessuna 

2-16 MB 

512K, 

Sì, 

1 MB 

768K 


Nessuno 

Nessuno 






2 MB, 

quantità 

RGB 

Ile card 









4MB, 

non 

card 

3MB 









16MB 

dichiarata 








Processore 16 bit 

No 

Sì 

Sì 

No 

No 

Sì 

Sì 


No 

No 


RGB 

No 

No 

Sì 

Sì 

No 

Sì 

Built in 


No 

No 


RAM statica/batteria 

No 

Batteria 

Batteria 

No 

No 

Ram statici 

i 


No 

No 


tampone 


tampone 

tampone 



(256K a 2MB) 





Note 












1. Lo spazio di scrivania e le dimensioni massime dello spreadsheet possono variare a seconda del metodo di gestione di Ap- 

pleWorks. 












2. La scheda testata conteneva un vecchio chip PAL. Con un chip di rimpiazzo gratuito la scrivania è di 1.327K. 



3. Riempite circa 34.000 celle il patch di S'Card si è addormentato. Dopo aver atteso per più di due ore che si riempissero altre 

tre colonne di celle si è messo fine al test. 









4. 1 massimi dei record di database e delle righe di word processor sono stati presi da dichiarazioni dei fabbricanti (non testati). 

5. La versione 4.4 del software MultiRam AppleWorks Expander supporta 23.000 record nel database e 4.850 righe nel word 

processor. 












6. Sulla scheda in prova non c'è memoria a sufficienza per il completamento di questa prova di riferimento. Comunque il tempo 

dovrebbe essere paragonabile a quello ottenuto dalla SprintDisk, dato che segue lo standard Apple. 




7. Sono disponibili emulatori di ProDOS, Pascal e CP/M. 
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RAM Factor 

RamFactor è la risposta dell'Ap- 
plied Engineering allo standard del¬ 
l'Apple per le schede di memoria. E' 
compatibile con la linea Apple II, ec¬ 
cettuato il Ile, e funziona con il La¬ 
ser 128 e i Franklin Ace 1000 e 
2000. RamFactor funziona esatta¬ 
mente come la scheda della Apple in 
ProDOS e in Pascal 1.3. Così pure 
in DOS 3.3 è il comando IN#n a for¬ 
mattare la scheda. 

E' incluso anche il software che 
permette di suddividere la memoria 
di RamFactor in nove sezioni, ognu¬ 
na dedicata a un singolo sistema ope¬ 
rativo. Un patch di AppleWorks per¬ 
mette alla scheda l'impiego di tutte 
le schede orologio compatibili con 
il ProDOS. 

SprintDisk 

SprintDisk dell’AST Research se¬ 
gue lo standard Apple e supporta 
DOS 3.3, ProDOS e Pascal 1.3 
quando viene usata come RAM disk. 
In ProDOS e in Pascal la scheda si 
formatta automaticamente. 

In DOS 3.3 SprintDisk emula una 
serie di drive di 400K o meno, a se¬ 
conda della quantità di memoria sul¬ 
la scheda. 

Quel che rende unico SprintDisk è 
lo speciale software di cache del di¬ 
schetto. Un algoritmo trasferisce dal 
dischetto alla RAM i dati e i seg¬ 
menti di programma cui accedete più 
spesso. Quando nuovi dati o un seg¬ 
mento di programma sono richiesti 
dal programma che sta girando, la 
routine di cache elimina dal cache 
buffer i blocchi usati meno recente¬ 
mente e li sostituisce con i nuovi da¬ 
ti provenienti dal dischetto. A diffe¬ 
renza di un normale RAM disk un 
cache buffer conserva solo i dati più 
importanti della RAM. Ne derivano 
meno accessi al dischetto e una mag¬ 
gior velocità di funzionamento del 
programma. 

Il pacchetto di SprintDisk com¬ 
prende anche un programma che vi 
permette di configurare qualsiasi di¬ 
schetto per l'installazione automati¬ 
ca del sistema di cache all'atto del bo- 
oting, e una routine di controllo del¬ 
la memoria. 

Ram Works 

La scheda RamWorks dell'Applied 
Engineering comprende un patch per 


AppleWorks e diversi programmi di 
utilità. La scheda segue lo standard 
dell'Applied Engineering. 

Nel patch per AppleWorks di Ram¬ 
Works sono comprese due caratteri¬ 
stiche speciali. In primo luogo se la 
scheda RamWorks contiene almeno 
256K viene automaticamente instal¬ 
lato un buffer di stampa. 

Questo buffer può essere usato da 
qualsiasi interfaccia stampante che 
supporti il protocollo Pascal 1.1 per 
il controllo dello stato. 

In secondo luogo sono supportate 
tutte le schede orologio compatibili 
con il ProDOS. Se è presente una 
scheda orologio il messaggio "Mela 
vuota-?" alla base dello schermo è 
sostituito dalla data e dall'ora corren¬ 
ti. 

Nel database potete introdurre da¬ 
ta/ora correnti mettendo un unico 
simbolo di "a" (@) in qualsiasi cam¬ 
po con un nome di categoria che 
comprenda le parole DATE (data) o 
TIME (ora). 

In aggiunta il dischetto di Ram¬ 
Works comprende i seguenti pro¬ 
grammi: 

1. RAMDRIVE, un programma di 
RAM disk in DOS 3.3 che consente 
alla scheda di emulare un massimo 
di sei drive DOS 3.3, ognuno con 
un massimo di 749 settori liberi. Le 
letture e le scritture di drive sono in¬ 
dicate rispettivamente da una R e da 
una W in inverse alla base dello 
schermo. Si può richiamare anche 
un indicatore sonoro facoltativo di 
lettura/scrittura. 

2. Una versione modificata del 
FID per copiare file sui dischetto cre¬ 
ati da RAMDRIVE. 

3. RAMCOPY, un programma 
che utilizza la memoria sulla scheda 
per ridurre il numero degli scambi di 
dischetto durante la duplicazione di 
un dischetto. 

Funziona con qualsiasi dischetto 
non protetto in DOS 3.3, ProDOS, 
Pascal 1.1 o CP/M. 

4. SPEEDOS, un programma che 
accelera il DOS 3.3. 

5. PRODRIVE, una versione Pro¬ 
DOS di RAMDRIVE che crea un 
singolo RAM disk in ProDOS. 

6. PARTITION, un programma 
che può essere usato per inibire spe¬ 
cifici blocchi di memoria, rendendoli 
inaccessibili al RAM disk di PRO- 
DRIVE. 

7. AUTOCOPY, un programma 
che copia tutti i file in /RAM. 


MegaRamPlus 

Come altre piastre destinate specifi¬ 
camente allo slot ausiliario del Ile, 
la MegaRamPlus dell'AST Research 
sostituisce la scheda a 80 colonne 
dell'Apple. Funziona con qualsiasi 
software che richieda un display a 80 
colonne o impieghi la grafica a dop¬ 
pia Hi-Res. 

Dato che MegaRamPlus aderisce al¬ 
lo standard dell'Applied Engineering 
per le schede di memoria il dischetto 
comprende programmi di utilità che 
permettono di usare la scheda con 
AppleWorks, come RAM disk in 
ProDOS o DOS 3.3 o come cache 
buffer (valgono anche qui i limiti di 
dimensioni di SprintDisk per i 
RAM disk in DOS 3.3). 

MultiRam ile 
e MultiRam RGB 

Le schede MultiRam Ile e Multi¬ 
Ram RGB della Checkmate Techno¬ 
logy possono essere usate separata- 
mente o l'una sull'altra per avere la 
massima capacità di memoria. Ognu¬ 
na prevede il display a 80 colonne e 
ha un set di file che indica a quali 
banchi di memoria si sta accedendo 
in un dato momento. 

Le schede sono congegnate per un 
facile potenziamento e presentano ca¬ 
ratteristiche che hanno l’uguale solo 
nelle schede dell'Applied Enginee¬ 
ring. 

La versione 4.4 del programma 
AppleWorks Memory Expander ora 
acclusa a queste schede ha qualche ca¬ 
ratteristica speciale: 

1. Funziona con tutte le schede oro¬ 
logio compatibili con il ProDOS. 

2. Espande la capacità di record del 
database e il numero di righe del 
word processor. 

3. E' compatibile da tastiera con Ma- 
croWorks. 

4. Visualizza con esattezza le dimen¬ 
sioni di file di oltre 1 MB. 

5. Ha un indicatore il quale mostra 
sullo schermo, durante le operazioni 
di lunga durata, che il programma 
sta ancora funzionando (cosa che sa¬ 
rebbe stata estremamente comoda du¬ 
rante le prove di riferimento!). 

E' incluso il software per creare 
RAM disk in DOS 3.3 e in Pro¬ 
DOS. I RAM disk in DOS 3.3 ven¬ 
gono costruiti in unità di 384K (o 
meno se restano meno di 384K dopo 
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la creazione dei drive iniziali), ed è 
possibile creare fino a nove di tali 
drive se le schede contengono memo¬ 
ria a sufficienza. Sono disponibili se¬ 
paratamente programmi per la crea¬ 
zione di RAM disk in Pascal e in 
CP/M. 

Flipster 

Flipster della Cirtech UK Limited 
supporta una vasta gamma di siste¬ 
mi operativi. Si possono creare due 
RAM disk di 400K in DOS 3.3 me¬ 
diante il comando IN#n dell’Apple¬ 
soft. Uno speciale programma sul di¬ 
sco di utilità, denominato Program 
Manager, permette di dividere la me¬ 
moria della scheda in 1, 2, 3 o 4 
scomparti (aree di lavoro), ognuno ri¬ 
servato a un diverso sistema operati¬ 
vo o programma. Dopo aver configu¬ 
rato il Program Manager potreste 
commutare fra programmi in Pro- 
DOS, Pascal, CP/M e DOS 3.3 sen¬ 
za dover mai rifare il booting. Il Pro¬ 
gram Manager comprende anche op¬ 
zioni per il backup e il ripristino di 
uno scomparto, e per cancellare uno 
scomparto allo scopo di far posto a 


un’altra applicazione. Flipster com¬ 
prende un test di memoria incorpora¬ 
to, come pure un programma per 
l’accelerazione del DOS. 

Legend S'Card 

La Legend S'Card della Legend In¬ 
dustries è la sola scheda di questo 
gruppo che funzioni nello slot 3 del 
Ile. Questo significa che se tutti gli 
altri slot sono occupati si può adope¬ 
rare uno slot normalmente inutilizza¬ 
bile. 

La S’Card funziona in tutte le ver¬ 
sioni munite di slot della linea Ap¬ 
ple II e nell'Apple III. I test con 
AppleWorks non sono andati bene. 
La scheda viene fornita con un sof¬ 
tware che comprende: 

1. SuperEmulator, un emulatore di 
dischetto DOS 3.3 che accantona fi- 
no a 512K per i RAM disk e offre di¬ 
versi comandi speciali relativi al di¬ 
schetto (per esempio una mappa del 
VTOC, lo stato binario delfultimo 
file caricato, e così via). 

2. Un programma di database di una 
lista d’indirizzi. 


3. Un programma di grande effetto 
ad alta velocità per la presentazione 
di diapositive, e la relativa dimostra¬ 
zione. 

4. Ampercard, una utility in Apple¬ 
soft che permette di memorizzare nel¬ 
la scheda RAM variabili stringa, in¬ 
tere e reali. 

Eccezion fatta per il patch di Ap¬ 
pleWorks, il software di S'Card mo¬ 
stra chiaramente di avere radice nel 
DOS 3.3. Non comprende un pro¬ 
gramma che faccia emulare alla 
S'Card un RAM disk in ProDOS. 
Né il FILER dell’Apple né il suo di¬ 
schetto di Utilities di sistema ricono¬ 
scono la scheda. I più contenti della 
scheda saranno gli utenti di vecchia 
data dell'Apple, in particolare quelli 
che hanno molto a che fare con ap¬ 
plicazioni e programmazione in 
DOS 3.3. 

RamPak 4 GS 

Una nota particolare va alla scheda 
Ram Pak della Orange, distribuita in 
Italia dalla Elcom di Gorizia. E' at¬ 
tualmente l'unica scheda costruita ap- 
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Figura 1. Formula per lo spreadsheet di prova. 

File: TEST 

FILE 


REVIEW/ADD/CHANGE 


Escape : Main Menu 

1 : 1 

.001+A1 

,001+Bl 

.001+C1 

001+D1 

.001+E1 

.001+F1 

.001+G1 

2 : +A1 + 1 

001+A2 

001+B2 

.001+C2 

.001+D2 

001+E2 

.001+F2 

.001+G2 

3 : +A2+1 

001+A3 

001+B3 

.001+C3 

.001+D3 

.001+E3 

.001+F3 

.001+G3 

4 : +A3+1 

.001+A4 

.001+B4 

001+C4 

001+D4 

.001+E4 

.001+F4 

.001+G4 

5 : +A4+1 

.001+A5 

001+B5 

.001+C5 

001+D5 

.001+E5 - 

001+F5 

.001+G5 

6 :+A5+1 

001+A6 

001+B6 

001+C6 

001+D6 

.001+E6 

.001+F6 

.001+G6 

7 : +A6+1 

001+A7 

.001+B7 

.001+C7 

.001+D7 

.001+E7 

.001+F7 

.001+G7 

8 : +A7 + 1 

.001+A8 

.001+B8 

001+C8 

.001+D8 

.001+E8 

.001+F8 

.001+G8 

9 : +A8+1 

.001+A9 

.001+B9 

.001+C9 

.001+D9 

.001+E9 

. 001 + F9 

.001+G9 

10 : +A9+1 

.001+A10 

. 001+B10 

001+C10 

.001+D10 

.001+E10 

.001+F10 

001+G10 

11 : +A10+1 

001+A11 

001+B11 

.001+C11 

.001+D11 

001+E11 

001+F11 

001+G11 

12 : +A11 + 1 

001+A12 

001+B12 

.001+C12 

001+D12 

.001+E12 

.001+F12 

.001+G12 

13 : +A12+1 

.001+A13 

.001+B13 

.001+C13 

.001+D13 

.001+E13 

001+F13 

.001+G13 

14 : +A13+1 

.001+A14 

.001+B14 

001+C14 

.001+D14 

001+E14 

.001+F14 

.001+G14 

15 : +A14+1 

.001+A15 

. 001+B15 

.001+C15 

.001+D15 

.001+E15 

001+F15 

.001+G15 

16 :+A15+1 

001+A16 

.001+B16 

.001+C16 

.001+016 

001+E16 

.001+F16 

.001+G16 

17 : +A16+1 

.001+A17 

.001+B17 

.001+C17 

.001+D17 

.001+E17 

001+F17 

.001+G17 

18 : +A17 + 1 

001+A18 

.001+B18 

.001+C18 

.001+D18 

.001+E18 

.001+F18 

.001+G18 

Al: (Value) 

1 







Type entry 

or use ó commands 
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posta per l’Apple IIGS. La sua me¬ 
moria inizia con 512 Kbyte e può es¬ 
sere espansa fino a un massimo di 
4 Mbyte in passi da 256 Kbyte. Vie¬ 
ne fornita con un disco di utility che 
comprende un programma diagnosti¬ 
co, un dinamic memory locator e 
supporta i Pulì Down Menu. Viene 
inserita nello slot ausiliario del IIGS 
ed è riconosciuta dall' AppleWorks 
1.4. 

La scelta della scheda 

La vostra scelta di una scheda 
RAM sarà probabilmente guidata da 
varie considerazioni: la compatibili¬ 
tà con la vostra attrezzatura, il prez¬ 
zo, l’espandibilità e il supporto di 
software. 

• La compatibilità. Tutte le 
schède supportano l'Apple Ile. Se a- 
vete un II o un II Plus la vostra scel¬ 
ta è limitata alle schede che aderisco¬ 
no allo standard Apple (l'Apple II 
Memory Expansion Card, la Ram- 
Factor e la SprintDisk), e alle sche¬ 
de Flipster e S'Card. Queste schede 
hanno l'ulteriore vantaggio di funzio¬ 
nare in quasi tutti gli slot tranne l'au¬ 
siliario. 

• Il prezzo. Le informazioni sui 
prezzi delle varie schede sono visibi¬ 
li nella tavola 3. Con qualsiasi 
scheda, tranne Flipster, si ottiene u¬ 


na riduzione di spesa comprando una 
piastra con la minima memoria in¬ 
stallata (fra 64K e 356K) e inserendo 
di persona i chip di memoria aggiun¬ 
tivi. Se non vi occorre subito 1 MB 
questa può essere una soluzione idea¬ 
le. 

• L'espandibilità. Tranne la 
MultiRam Ile, con il suo limite su¬ 
periore di memoria di 768K, ogni 
scheda può portare almeno 1 MB sul¬ 
la piastra originale. Con un connet¬ 
tore intermedio potete installare sche¬ 
de aggiuntive che espandono ancor 
più la memoria, pilotano un moni¬ 
tor RGB, gestiscono un coprocesso- 
re a 16 bit o provvedono una RAM 
statica. Le schede dell’Applied Engi¬ 
neering e della Checkmate Techno¬ 
logy sono progettate con tutte que¬ 
ste capacità di espansione. 

• Il supporto di software. 

Tutte le schede sono o riconosciute 
da AppleWorks 1.3 o dotate di un 
patch di software che permette di u- 
sarle con il programma. Il solo test 
di velocità eseguito ha indicato che, 
con l'eccezione di S’Card e Mega- 
RamPlus, i patch grosso modo si e- 
quivalgono. Differiscono però sotto 
due aspetti: la quantità di spazio di 
scrivania che mettono a disposizione 
(tabella 2) e il grado di espansione 
dei limiti dei segmenti di program¬ 
ma. 


Secondo i loro fabbricanti due 
patch spingono la capacità di record 
di AppleWorks molto al di là dei 
suoi limiti originali. Il patch della 
Checkmate per le schede MultiRam 
Ile e MultiRam RGB (Versione 4.4) 
permette secondo quanto viene detto 
di avere nel database 23.000 record. 
E una recente pubblicità di RamWor- 
ks II dichiara che sono supportati ol¬ 
tre 15.000 record di database. 

Una cosa è chiara: la corsa per crea¬ 
re il patch supremo di AppleWorks 
è avviata, e i fabbricanti di schede 
stanno lavorando sodo per migliora¬ 
re i loro prodotti. Ogni nuovo an¬ 
nuncio pubblicitario sembra offrire 
nuove caratteristiche o una maggior 
capacità. 

Se intendete costruire database, 
spreadsheet o documenti di word pro¬ 
cessing di proporzioni mastodonti- 
che controllate le tabelle riportate in 
questo articolo prima dell’acquisto, e 
accertate quale sia la massima memo¬ 
rizzazione presentemente supportata 
dai patch, quindi scegliete la scheda 
che funziona meglio per il vostro ca¬ 
so. L'ultima nata è una scheda che 
l’Applied Engineering ha messo in 
commercio con una nuova versione 
dell'AppleWorks Desktop Expander. 
La nuova versione (5.2.1) espande il 
clipboard da 250 a 2.042 righe, con¬ 
sente di caricare nella RAM tutte le 
sovrapposizioni e permette di disatti¬ 
vare il buffer stampa. 


■■■■ 
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Vincenzo Dani di Cologno Monzese (MI) scrive 
ponendo un quesito molto interessante, che utilizzere¬ 
mo come spunto per l’intera rubrica di questo mese: 
"Ho apprezzato la M.INBdD apparsa su Applicando 
34, ma per diversi motivi, tra i quali l’utilizzo di per¬ 
sonal computer MS-DOS, il personale della mia a- 
zienda preferisce effettuare le operazioni di Data Entry 
con l'appoggio di una maschera di Input. Dal canto 
mio ho necessità di operare con la Base_di_Dati di 
Excel, ma non ho il tempo per digitare personalmen¬ 
te i dati relativi ai vari record. E' possibile produrre u- 
na macro che aggiri questo problema?” 

Le operazioni di Input sono senza dubbio facilitate 
dall’uso di una maschera, soprattutto per quanto ri¬ 
guarda l’edit, ma è necessario sottolineare che questo 
sistema risente della mancanza di alcune facilitazioni, 
che sono proprie della M.INBdD, come ad esempio la 
possibilità di copiare dati uguali o simili già digitati 
in altre registrazioni. Ecco comunque una soluzione 
al problema del signor Dani. 

M.InMaschera 

Una maschera di input, solitamente, è contraddistin¬ 
ta dal fatto di avere i campi disposti con un ordine 
che tende a occupare in modo razionale lo spazio ret¬ 
tangolare del video. La Base_di_Dati di Excel, al con¬ 
trario, ha la necessità di essere organizzata con la regi¬ 
strazione (record) disposta su di una sola riga. 

Una soluzione per ovviare a questo problema è 
quella di predisporre un’area intermedia, tra la masche¬ 
ra di input e la Base_di_Dati, con lo scopo di organiz¬ 
zare in una riga i dati introdotti con la maschera (fi¬ 
gura 1). 

I dati così ricomposti, mediante la macro, saranno 
poi introdotti in modo automatico nella Base_di_Da- 
ti. Il trasferimento dati tra due fogli di lavoro avvie¬ 
ne mediante la formula: 

=NomeFoglio!NomeCella 

dove NomeFoglio! rappresenta il nome del foglio sul 
quale compare la maschera e NomeCella individua il 
titolo del campo, che può essere sostituito anche dal¬ 
le coordinate della cella stessa. 

é fìrchuuo Cambio Formula formato Dati Opzioni Macro Finestre* 



Figura 1. 


La decisione di utilizzare due fogli anziché uno so¬ 
lo è dettata dal fatto di poter realizzare un uso più ra¬ 
zionale della memoria in tutti i casi in cui le dimen¬ 
sioni della maschera e quelle della BdD (numero delle 
colonne) sono estremamente diverse tra loro. 

Realizzazione pratica 

Dopo aver aperto un nuovo foglio di lavoro, biso¬ 
gna scrivere in una riga i nomi dei vari campi, quindi 
copiarla e incollarla nella terza riga di un nuovo fo¬ 
glio, impostando la stessa come Base_di_dati (Posi¬ 
ziona Base dati menu Dati). 

I due fogli dovranno essere registrati rispettivamen¬ 
te con i seguenti nomi: 

- "MaschINPUT" 

- "Giornale" 

Ai più frettolosi va ricordato che la tentazione di 
realizzare in prima battuta la maschera di input va ab¬ 
bandonata: è infatti la soluzione meno saggia, perché 
costringerebbe subito dopo o a riscrivere i nomi dei 
campi nel nuovo foglio, o a una serie di virtuosismi 
tra un foglio e l’altro al fine di copiare e incollare i 
nomi stessi. 

La composizione della maschera andrà effettuata di¬ 
sponendo, secondo le proprie necessità, i nomi dei 
campi nel foglio di lavoro. 

La manovra successiva consisterà nel nominare le 
celle adiacenti o sottostanti i titoli con il nome dei 
campi stessi. 

Ricordate che tale operazione può essere compiuta 
tramite i comandi Definisci col nome ... o con No¬ 
mina le celle entrambi dal menu Formula. 

La priorità di input di un campo, rispetto a un al¬ 
tro, si ottiene selezionando, con un determinato ordi¬ 
ne di precedenza, le varie celle con il tasto comando 
premuto. All’area cosi selezionata andrà assegnato il 
nome: "Procedlnput”. 

L'aspetto finale della maschera può essere arricchi¬ 
to togliendo griglia e intestazioni e bordando campi e 
titoli; i comandi necessari sono Visualizza menu Op¬ 
zioni e Bordo menu Formato. 

L'area di trasferimento va realizzata sul foglio 
"Giornale” e nominata "Polmone". Di seguito illu¬ 
striamo alcune tecniche per costituire quest'area. 

• Pendolari 

- attivare la funzione di Edit in una cella dell’àrea 
"polmone" sul foglio "Giornale" digitando in essa il 
segno di uguale; 

- attivare il foglio "MaschINPUT" e selezionare con 
un doppio clic la cella della maschera corrisponden¬ 
te, ovvero incollare il nome della cella stessa con 
l'opzione Incolla un nome ... Menu Formula; 

- premere il tasto di invio. 

• Digitazione Formule di collegamento 

Può avvenire concatenando il prefisso "MaschlN- 
PUT!" con il nome del campo; esempio =MaschIN- 
PUTJNome sarà la cella di collegamento per il cam¬ 
po nome e andrà inserita nella cella Al. 


49 







































q°^O0excel 


Posizione di duplicazione 



A 

B 

C 

1 

="MaschlNPUT!"&A3 

="MaschlNPUT!"&B3 

="MaschlNPUT!"&C3 

2 




3 

Nome 

Cognome 

! Via 


posizione intermedia; 
le celle Al e B1 sono 
già completate con 
il segno (=) 



A 

B 

C 

i 

0 

0|MaschlNPUT!Via 

2 


| 1 

3 

Nome 

Cognome 

Via 


Figura 2. 

•Costruzione Formule di collegamento 
Lo stesso risultato della procedura illustrata al pun¬ 
to precedente si può ottenere sfruttando le caratteristi¬ 
che di concatenamento di Excel (figura 2): 

- digitare nella prima cella la formula ="MaschIN- 
PUTL&A3; 

- duplicare la formula in tutte le celle dell'area di tra¬ 
sferimento; 

- copiare e incollare i soli dati (Incolla speciale; vaio- 

ri); 

- aggiungere al nome contenuto in ogni cella il se¬ 
gno di uguale. 

Rammentiamo che, dopo aver completato l'area di 
trasferimento, è necessario selezionarla e assegnarle il 
nome "Polmone" (Definisci col nome ... ). 

Come costruire la Macro 

In un foglio macro trascrivere la routine di figura 
3, seguendo le istruzioni fomite nella rubrica di Ap¬ 
plicando 32. 



B 

1 

M.INMasch 

2 

Option Command r 

3 

=SCHERMO( FALSO) 

4 

®ATTIVA("Giornale") 

5 

=SALTA.A.FORMULA(“Polmone") 

6 

-COPIAÒ 

7 

=SELEZIONA(!base di dati) 

8 

*SELEZI0NA("Rf"&RIGHE(!base_dLdati)& , 1C") 

9 

-INCOLLA.SPECIALE(3;1) 

10 

-SELEZIONA(!base rT di jm dati:DEVIAZIONE(!base Ti di rr dati;1;0)) 

11 

■ POS IZION A. BAS E. DAT l() 

12 

=ATTIVA("MaschlN PUT") 

13 

=SALTA.A.FORMULA("ProcedlNPUT") 

14 

-CANCELLAR 

15 

=SELEZIONA(;"RCf11“) 

16 

-SCIHERMÒ(VERÒ) 

17 

=RITORNA() 


Figura 3. 


La routine inizia con l'istruzione =SCHERMO 
(FALSO) per evitare di visualizzare l’esecuzione della 
macro stessa. 

Le tre istruzioni successive servono per copiare i 
dati dall'area di trasferimento. 

=SELEZIONA (!base di_dati) e =SELEZIONA 
("R["&RIGHE (!base_di_dati)&"]C") consentono di 
portare la cella attiva nella riga sottostante la BdD. 
INCOLLA.SPECIALE(3; 1) 
elimina le formule e incolla i soli valori. 

=SELEZION A(! base_di_dati: DE VI AZIONE 

(!base_di_dati;l;0)) 

allunga l’area della BdD di una riga e 

=POSIZIONA.BASE.DATI() reinposta la nuova 

BdD. E' in questo punto dell’esecuzione che si ha il 

reale trasferimento dei dati tra la maschera e la BdD. 

Le istruzioni seguenti servono per ripristinare una 
nuova sessione di Input nella maschera. 

=SELEZION A(; "RC[ 1 ] ") 

consente di avere la cella attiva posizionata nella pri¬ 
ma cella di input e =SCHERMO(VERO) 
riattiva lo schermo. 

Come si usa la Macro 

Dopo aver aperto la macro e i fogli di lavoro, si de¬ 
ve inserire la prima registrazione nella maschera, con¬ 
trollare che i dati inseriti siano corretti e quindi, con 
la combinazione dei tasti Option Command r, attiva¬ 
re la macro. 

Con il ritorno dello schermo attivo si potrà intro¬ 
durre una nuova registrazione. 

Con l’area "Procedlnput" selezionata si può ottene¬ 
re lo spostamento della cella attiva con seguenti ta¬ 
sti: 

- tabulazione 

- invio 

- retum 

- frecce di spostamento cursore. 
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Il Desktop Publishing, o editoria da scrivania, si sta affermando 
sempre di più come il sistema per realizzare qualsiasi tipo di 
pubblicazione attraverso un personal computer. 


Ready Set Go 



trollo della sintassi e di un sillabato- 
re automatico. Inoltre, è possibile ri¬ 
formattare automaticamente tutto il 
testo nelle pagine successive in fun¬ 
zione delle modifiche operate local¬ 
mente: documenti composti a decine 
di pagine possono essere rielaborati 
in pochi secondi. Altra caratteristica 
di rilievo, una volta inserita una 
qualsiasi immagine, disegno o riqua¬ 
dro, il testo viene automaticamente 
reimpaginato in modo da scorrere 
sui lati della stessa figura. Per quan¬ 
to riguarda l'uscita su stampante, è 
previsto l'utilizzo con Apple Laser¬ 
Writer, ImageWriter o con fotocom¬ 
positrici Linotronic. 

La versione edita dalla J Soft è 
completamente tradotta in italiano 
sia per quanto riguarda il software 
sia per la manualistica, il prezzo al 
pubblico è di 981 mila lire Iva esclu¬ 
sa e, come tutti i prodotti distribui¬ 
ti da J Soft, è pienamente assistito 
dal servizio tecnico di "Hotline" tele¬ 
fonica. 

Come si usa 

Senza voler riscrivere il manuale 
di Ready Set Go! 3.0 vediamo un ve¬ 
loce esempio di realizzazione di una 
pagina per capire il funzionamento 
di base del programma. 


I tradizionali procedimenti di foto¬ 
composizione possono essere bypas- 
sati con una notevole ottimizzazione 
delle risorse e la conseguente riduzio¬ 
ne sia dei costi sia dei tempi di rea¬ 
lizzazione. 

Macintosh è stato il capostipite di 
questa rivoluzione nelFeditoria, gra¬ 
zie anche ai prodotti hardware e sof¬ 
tware sviluppati dalle terze parti che 
non hanno impiegato molto tempo 
a capire quali frutti poteva dare que¬ 
sto nuovo mercato. 

Così in mezzo a spooler di 
stampa, scanner, e monitor a piena 
pagine, anche il software per impa¬ 
ginare si è aggiornato per stare al 


passo con i nuovi prodotti usciti. 

E' il caso della Letraset, che in po¬ 
co meno di un mese ha acquisito i 
diritti di distribuzione del program¬ 
ma Letrapage per poi ben presto fare 
marcia indietro per sostituire il pac¬ 
chetto con la versione 3.0 del pac¬ 
chetto Ready Set Go! acquistato dal¬ 
la Manhattan Graphics e edito in Ita¬ 
lia dalla J Soft. 

Completamentediversodalleprece- 
denti versioni, la release 3.0 di Read- 
y Set Go! ha guadagnato in termini 
di potenza, flessibilità, velocità e 
semplicità d'uso. E' stato inserito al¬ 
l'interno un sofisticato word proces¬ 
sor dotato di un dizionario per il con¬ 


È*-'** 

r * File 
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Lo schermo di Ready Set G! 3.0 
si presenta come in figura 1. Sulla 
sinistra ci sono gli strumenti di im¬ 
paginazione e le linee. Da destra a si¬ 
nistra troviamo la freccia guida, il 
cursore per scrivere ed editare del te¬ 
sto, quattro frecce incrociate per 
muovere le immagini e per indicarne 
il punto di inserimento, il fulmine 
per il link di blocchi di testo, la T 
per definire le colonne di testo, una 


specie di X per definire l'ingombro 
delle immagini e tre strumenti per di¬ 
segnare rettangoli, cerchi o tracciare 
delle rette. Sotto questi strumenti le 
diverse possibilità di formattazioni 
delle linee. Al piede dello schermo 
le pagine master di destra e di sini¬ 
stra con le icone delle pagine nume¬ 
rate. 

La prima operazione da compiere 
su un nuovo file consiste nel defini¬ 


re l'unità di misura preferita sceglien¬ 
do fra pollici, centimetri o punti. E' 
possibile inoltre definire una griglia 
di disegno per facilitare la definizio¬ 
ne delle immagini e delle colonne 
del testo. Una volta effettuata l'opera¬ 
zione vediamo come inserire un'im¬ 
magine. Selezionando la X dal pan¬ 
nello degli strumenti si definisce lo 
spazio che dovrà contenere l'immagi¬ 
ne. Selezionando con le frecce incro- 


Figura 1. 




Figura 2. 



Q File 

Edit Font Style Formai Te«t Special liti Pen 


Al* 

:!□! 

‘ 1 '!• '■''SEBBPgBBI1 Untitled Page 1 ! 

X 



..li iJ-i.jL-L.lJL.lJ.. LJ..1 1 1 

I 1 1 1 1 1 1 » 1 1 1 1 1 1 1 1 1 1 1 1 i 1 1 


T 

i- 

Th 

J- 

m i 

■ 1 

□ 

□ 

o 

r 

■ ■ 

■ ■ 


! 

i 

1 

!: :nnrin 
' □□□□ 
f uum 
ì; :□□□□ 

;□□□□ 

: :□□□□ 



= 


2 : 

. .■■■■■■■■■■■■■ . . 


Figura 3. Figura 4. 



Figura 5. Fi 9“« <*• 


52 






























































































































































































Un Club per te. 

Un Club nato per 
aiutarti 

a imparare senza 
fatica il Basic. 

Un Club nato per 
fornirti routine 
già pronte che ti 
permetteranno di 
scrivere programmi 
da professionista 
per il tuo Macintosh, 
Un Club pieno 
di scambi di idee fra 
i soci, di consigli, a 
di programmi, I 
Idi suggerimenti. 1 


1 


Il Basic Microsoft per 
Macintosh è 
facile e può dare 
grandi soddisfazioni. 
Imparare a usarne 
tutte le potenzialità 
diventa ancor 
più facile iscrivendoti 

subito al 
Mac Basic Club. 
Infatti, se il Basic 
Microsoft 2.1 
ancora non 
l'hai, iscriverti 
al Mac Basic Club 
non costa 
proprio nulla. 



S e il vostro Mac non è in grado 
di realizzare questi grafici, 
comprategli Cricket Graph... 



Cricket Graph 


Tutte le necessità di rappresentazione grafica sia per uso scientifico o 
gestionale sono soddisfatte da Cricket Graph. E' possibile creare ben 12 ti¬ 
pi di grafici diversi, rivoluzionando il modo secondo cui vengono rappre¬ 
sentati i dati mediante l'aggiunta di effetti tridimensionali e l'uso di colori. 
E' inoltre possibile controllare rimpaginazione realizzando rappresenta¬ 
zioni di grande effetto visivo. 

Cricket Graph permette anche di ottenere curve di regressione, grafici 
a 3D con effetto di profondità. Si possono gestire sino a 2000 punti per se¬ 
rie. E' anche possibile eseguire semplici trasformazioni matematiche 
(dalle moltiplicazioni alle derivate), nonché ottenere ordinamenti, rag¬ 
gruppamenti di dati, operazioni di "smooth" e interpolazioni. 

Trasferimenti di dati 

Cricket Graph permette di impostare i dati in righe e colonne, come u- 
no spreadsheet, o importare dati in formato SILK (Multiplan, Excel, Omnis 
3) o da file di testo (MacWrite o Microsoft Word); permette inoltre di im¬ 
portare dati da StatWorks; anche da Jaww o altre applicazioni tramite la 
clipboard. E' pure possibile esportare i grafici elaborati in formato PICT 
permettendo di modificarli direttamente con Mac Draw, Mac Draft o Cric¬ 
ket Draw. Switcher viene fornito assieme al programma. 

Stampa a colori 

Cricket Graph permette di scegliere tra 8 colori. La stampa a colori è 
supportata sia per la Image Writer II, che per I plotter Apple, Hewlett Pac¬ 
kard 7470A e 7475A. MacWrite e Word possono anche essere usati per 
stampare grafici importati a colori. 


Distribuito in esclusiva da: 


Corso Italia 149-34170 Gorizia - Telefono 0481/30909 - 32790 



Disponibile negli Apple Center o per corrispondenza 

in versione italiana 


Configurazione: Prezzo: 

Macintosh 512/800, Plus, SE, II. 390.000 lire + iva.. 


date il rettangolo così creato si i- 
struirà il computer che quello è l'in¬ 
gombro che deve contenere l'immagi¬ 
ne (figura 2). Poi dal menù Archi¬ 
vio si richiama la figura memorizza¬ 
ta dal dischetto che viene automatica- 
mente inserita nell'ingombro voluto 
(figura 3). Sempre con le frecce in¬ 
crociate si può agire sulla figura cen¬ 
trandola nel box precedentemente de¬ 
finito. 

Per inserire del testo, invece, biso¬ 
gna prima definire le colonne dove 
inserirlo o batterlo direttamente da 
programma. Per fare questo si deve 
selezionare lo strumento T e via via 
creare le colonne desiderate (figura 
4). Nel nostro caso sono state defini¬ 
te due colonne ai lati della pagina ve¬ 
dremo poi il perché. 

Per impaginare il file battuto con un 
word processor, su tutte le colonne 
definite bisogna usare lo strumento 
per il link del testo (simbolo del ful¬ 
mine). Criccando due volte su ogni 
colonna è possibile stabilire una 
qualsiasi sequenza di scorrimento da 
far seguire al testo da impaginare. 

Poi, con il cursore del testo, si sta¬ 
bilisce il punto di inizio dell'impagi- 
nazione e a questo punto è possibile 
richiamare un testo già memorizzato 
che viene impaginato (figura 5). 

Ora, prendendo l'angolo in basso a 
destra della prima colonna di testo è 
possibile portarla in misura di mez¬ 
za pagina: il programma reimpagine¬ 
rà automaticamente il testo nella giu¬ 
stezza cambiato girando intorno ai 
bordi dell'ingombro della figura. La 
stessa operazione fatta sulla colonna 
di destra trasformerà la pagina come 
quella visibile in figura 6. 

Ovviamente queste operazioni so¬ 
no solo la base di Ready Set Go! 
3.0. 

E' possibile definire colonne e par¬ 
ticolari costanti di una pubblicazio¬ 
ne nelle pagine master senza dover o- 
gni volta formattare la pagina, defini¬ 
re una propria griglia di disegno, ve¬ 
dere due pagine affiancate, modifica¬ 
re lo spazio fra due lettere (keming), 
trovare e cambiare automaticamente 
del testo, definire un glossario o fare 
delle tabulazioni. 

Insomma, con la nuova versione 
Ready Set Go! 3.0 ha guadagnato 
parecchie nuove funzioni che permet¬ 
tono un'impaginazione professionale 
con un particolare occhi di riguardo 
per quanto riguarda i layout di 
depliant e pagine pubblicitarie. 

Mario Magnani 


















































Sette minuti 
e la chiave 


Sette minuti possono aprirti la porta 
di un nuovo mondo: quello dei 
programmi scritti da te come 
servono a te, sulla misura 
delle tue esigenze. Sette minuti 
bastano per decidere di entrare 
nel Club di chi sa ottenere dal 
suo Macintosh esattamente 
quello che vuole. Il Mac Basic Club 
ti offre proprio questo: tutorial in 
italiano, routines, trucchi e segreti, 
suggerimenti, idee. In pratica il Club 
offre tutto il supporto che ti è 
necessario per imparare senza 
fatica il Basic Microsoft. E te lo 
offre gratis se non possiedi ancora il 
Microsoft Basic 2.1. Iscrivendoti al 
Mac Basic Club riceverai infatti, 

subito e direttamente 
al tuo indirizzo, 
il Microsoft 
Basic 2.1 in 
confezione 
originale 
completa di 
manuale, 
più il primo 
numero del 
bimestrale su dischetto del 
Mac Basic Club. Gli altri cinque dischetti 
ti verranno spediti via via che verranno 
pubblicati. Ma tu pagherai solo il prezzo 
del Microsoft Basic 2.1, e cioè 327.000 
lire (più Iva 9%). Ma anche se possiedi già 
il Basic puoi iscriverti al Mac Basic Club 
in questo caso riceverai solo i sei numeri 
del bimestrale su dischetto del Club, e 
pagherai 160.000 lire (più Iva 9%). 



del Mac Basic 
Club è tua 



Il Microsoft Basic permette di 
programmare in un ambiente 
altamente interattivo, 
sfruttando tutte le potenzialità 
_ di Macintosh: la grafica, 

* il suono, le finestre, i menù. 

Comprende strutture 
di controllo avanzate come le 
istruzioni PRINT USING, 
IF/THEN/ELSE, WHILE/WEND, ecc. 
In più, rispetto al Microsoft Basic 2.0, 
il Microsoft Basic 2.1 è in pratica 
due volte più veloce. 
Ed è sicuramente il 
linguaggio che più 
rapidamente e più 
facilmente ti farà 
ottenere risultati 
davvero 
professionali. 
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BASIC _ 
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Sei proprio sicuro 
che il tuo computer 
sia sempre al sicuro? 


Incidenti di trasporto, furti anche dall'auto o dalla camera 
d'albergo, cortocircuiti, bevande rovesciate sulla tastiera, 
bambini o inesperti che ci mettono le mani... Ecco i pericoli 
che correva il tuo computer prima della polizza Applicando. 


Condizioni generali di assicura¬ 
zione: 

1) Premessa : a) l'adesione alla 
presente polizza è riservata ai pro¬ 
prietari di un Personal Computer il 
cui valore stabilito come alla Condi¬ 
zione 6) sia superiore a L. 
2.500.000 Iva compresa; b) l'adesio¬ 
ne alla presente polizza da parte dei 
proprietari di personal computer av¬ 
verrà a mezzo invio di apposita car¬ 
tolina con il relativo importo di pre¬ 
mio; c) l'intestatario della cartolina 
sarà considerato a tutti gli effetti co¬ 
me l'Assicurato; d) la garanzia sarà 
operante dalle ore 24 del giorno di 
spedizione della cartolina, risultante 
dal timbro postale. La copertura a- 
vrà durata un anno, sempre che la 
data di inizio della garanzia sia com¬ 
presa nel periodo di validità della 
convenzione. 

Garanzie e condizioni 

2) Sez. I - Danni materiali. Deri¬ 
vanti da: a) incendio, opera di spe¬ 
gnimento e salvataggio, fulmine, e- 
splosione, scoppio, implosione; b) a- 
cqua e liquidi in genere, inondazio¬ 
ne, alluvione, trombe, uragani, ge¬ 
lo, ghiaccio, neve, grandine, valan¬ 
ga, caduta massi e altri simili even¬ 
ti; c) superamento del muro del suo¬ 
no, caduta di aeromobili o cose da 
essi trasportate; d) corto circuito, 
variazione di corrente, sovratensio¬ 
ne arco voltaico, deficienze di isola¬ 
mento, effetti di elettricità statica, 
induzione; e) imperizia, negligen¬ 
za, errata manovra, nonché azioni 
dolose e colpose in genere; f) tra¬ 


sporti e smontaggi connessi con la¬ 
vori di pulizia o di manuten¬ 
zione; g) furto e rapina; h) terremo¬ 
to, maremoto o eruzioni vulcani¬ 
che; i) persone che prendono parte 
a tumulti popolari, scioperi, som¬ 
mosse e che perpetrino individual¬ 
mente o in associazione atti di terro¬ 
rismo o sabotaggio verificatisi in 
occasioni di serrate. 

3) Sez. II - Responsabilità Civile 
Terzi: L’assicurazione si intende i- 
noltre prestata per la Responsabili¬ 
tà Civile derivante all’Assicurato 
dalla proprietà e dall’uso personale 
del computer assicurato, identifica¬ 
to nel certificato di assicurazione. I 
massimali di garanzia si intendono 
fissati in: L. 100.000.000 per sini¬ 
stro con il limite di L. 100.000.000 
per ciascuna persona deceduta o 
che abbia subito lesioni personali 
L. 100.000.000 per danni a cose e/o 
animali. 

4) Esclusioni: La Società non è 
obbligata per i danni dovuti a: - do¬ 
lo dell'Assicurato; - corrosione, de¬ 
perimento, logoramento che siano 
conseguenza del normale uso o fun¬ 
zionamento o causati dagli effetti 
graduali degli agenti atmosferici; - 
per i quali deve rispondere il forni¬ 
tore, venditore o locatore degli enti 
assicurati per legge o per contratto 
o per inaaeguata manutenzione; - 
causati da difetti di materiale o di 
costruzione che esistevano già all’at¬ 
to della stipulazione della polizza e 
erano a conoscenza dell’Assicurato;- 
causati direttamente o indirettamen¬ 


te da avvenimenti bellici, sommos¬ 
se militari, invasioni, adozione di 
misure da parte di potenze straniere, 
rivoluzione, ribellione, insurrezio¬ 
ne, assunzione ousurpazione di pote¬ 
re di carattere militare, sequestri; - 
verificatisi in occasione di esplosio¬ 
ne, radiazione nuclerare o di conta¬ 
minazione radioattiva; - uso impro¬ 
prio del bene (mancato rispetto del¬ 
le norme di impiego dettate dal co¬ 
struttore); - danni estetici (quelli in¬ 
teressanti l’involucro esterno che 
non sia conseguenza di un danno ri¬ 
sarcibile a termine della presente po¬ 
lizza); - guasti casualmente ricondu¬ 
cibili a interventi, a riparazioni e/o 
modifiche effettuate da un centro 
non autorizzato dalla casa costruttri¬ 
ce della macchina; - danni indiretti 
in genere. 

5) Operatività della garanzia: a) 
la garanzia è operante solamente se 
gli enti assicurati sono ubicati pres¬ 
so il domicilio dell’Assicurato o in 
luoghi diversi da questi se in posses¬ 
so dell’Assicurato; b) la garanzia è 
pure efficace se i beni si trovano sul¬ 
l'autovettura in uso all'Assicurato, 
salvo i seguenti casi: - qualora l’au- 


Sl ! Desidero assicurare i miei/il mio computer, in¬ 
viatemi a stretto giro di posta il certificato emesso dal¬ 
la Ras. L'assicurazione avrà valore a decorrere dalle 
ore 24 del giorno di spedizione della mia adesione. 
Per la data fa fede il timbro postale. 

COGNOME_ 



NOME- 


INDIRIZZO. 


CAP- 


Città 


-PRQV. 


Assicuro i/il seguente personal: 
Marca e Modello 


N. di matricola 


Valore (Iva compresa) 


Con le seguenti periferiche (stampanti, video, drive, hard-disk, ecc.): 

Marca e Modello N. di matricola Valore (Iva compresa) 


In caso di spazio insufficiente ricopiate su un foglio il tagliando indicando i prodotti che intendete assicurare. 

Per un totale complessivo di Lire .. su cui pa¬ 

go il premio calcolato in base alla tabella riportata qui sopra. Allego assegno non trasferibile di 
Lire.intestato a Editronica srl, Corso Monforte 39, 20122 Milano. 


tovettura venga lasciata incustodita 
dalle ore 22 alle ore 6; - qualora 
l’autovettura regolarmente chiusa a 
chiave venga lasciata incustodita 
dalle ore 6 alle ore 22 e gli enti assi¬ 
curati non opportunamente occulta¬ 
ti nei bagagliaio; c) limitatamente 
ai danni di rottura la garanzia è effi¬ 
cace solamente nel caso questi sia¬ 
no dovuti a un incidente in cui ri¬ 
manga coinvolto anche il veicolo 
in uso dell’Assicurato che trasporta¬ 
va i beni assicurati; d) per gli enti 
per i quali non è stato stipulato il 
contratto di manutenzione e/o assi¬ 
stenza con la casa costruttrice e/o 
ditte di essa mandatarie qualora l’en¬ 
te richieda per norma del fornitore 
detto contratto, la società non ri¬ 
sponde dei danni verificatisi in con¬ 
seguenza di guasto meccanico e/o e- 
lettrico salvo che l’Assicurato pro¬ 
vi che tale guasto sia causato da e- 
vento esterno agli enti assicurati o 
da incendio originato da uno di que¬ 
sti enti. 

6) Somma Assicurata: La somma 
assicurata per ciascun ente deve cor¬ 
rispondere al costo di rimpiazzo, os¬ 
sia al prezzo di listino della casa co¬ 
struttrice ed escluso ogni sconto o 
prezzo di favore di un ente nuovo, 
eguale o equivalente per caratteristi¬ 
che, prestazioni e rendimento eco¬ 
nomico. 

7) Premio: Per ogni singola appli¬ 
cazione è stabilito un premio forfet¬ 
tario omnicomprensivo così calco¬ 
lato: 


Somma assicurata 

Premio 

da 

a 

2.500.000 

3.000.000 

50.000 

da 

a 

3.000.000 

5.000.000 

.65.000 

da 

a 

5.000.000 

7.000.000 

80.000 

da 

a 

7.000.000 

10.000.000 

100.000 

da 

a 

10.000.000 

15.000.000 

120.000 

da 

a 

15.000.000 

20.000.000 

150.000 


8) Franchigia. Per ogni e qualsia¬ 
si danno che colpisca gli enti assicu¬ 
rati è stabilita una franchigia di: L. 
50.000 per somma assicurata fino a 
L. 5.000.000; L. 100.000 per som¬ 
ma assicurata superiore a L. 
5.000.000. Per sinistri causati da e- 
venti come ai punti g) ed h) delle ga¬ 
ranzie prestate, la Società liquiderà 
i danni sotto deduzione di uno sco¬ 
perto pari al 20% della somma assi¬ 
curata, col minimo delle franchigie 
sopra stabilite. 

9) Rinvio alle norme di legge. 
Per tutto quanto non è qui diversa- 
mente regolato, valgono le norme 
di legge. 



e applicando vi mettono al sicuro 































Questa routine di ordinamento delle matrici, ad alta velocità, ne 
riorganizza fino a otto asservite, ordinando la matrice chiave. 

Super 

ordinamento 


Super Sort consente il riordina¬ 
mento veloce delle matrici e presen¬ 
ta inoltre la possibilità di ordinare 
solo una determinata parte di una ma¬ 
trice più estesa; comprende anche un 
programma dimostrativo che utilizza 
ambedue le caratteristiche per distri¬ 
buire le carte nel gioco del bridge. 

Quasi tutti i programmi di data ba¬ 
se in Basic impiegano una o più ma¬ 
trici per memorizzare i dati. Così pu¬ 
re la maggior parte dei database com¬ 
prende la possibilità di ordinare le 
matrici di dati. Per esempio un pro¬ 
gramma d’indirizzario potrebbe usa¬ 
re, per conservare le informazioni ne¬ 
cessarie, queste sei matrici: 


LA$( ) - Cognome 

FI$( ) - Nome 

SA$( ) - Via 

CI$( ) - Città 

ST$( ) - Provincia 

ZP( ) - Codice avviamento postale 


E’ necessario ordinare i record in 
due modi: usando la matrice dei co¬ 
gnomi (LA$) come matrice chiave 
per ottenere un elenco alfabetico, e u- 
sando la matrice del codice di avvia¬ 
mento postale (ZP) per stampare eti¬ 
chette in ordine di CAP per la spedi¬ 
zione collettiva. 

L'ordinamento delle matrici in Ba¬ 
sic presenta due problemi fondamen¬ 
tali. In primo luogo il Basic è per 
sua natura lento, dato che è un lin¬ 
guaggio interpretato. Il secondo, e 
forse più serio, problema è che per 
la maggior parte delle assegnazioni 
di stringa (per esempio T$ = LA$(I)) 
ogni volta che l’Applesoft le incon¬ 
tra immagazzina la variabile in me¬ 
moria senza eliminare il precedente 
valore della variabile. Simili asse¬ 
gnazioni di stringa sono comuni 
quando si ordina una matrice stringa, 
e diventano più abbondanti nei casi 


in cui ogni record di dati consti di 
più matrici stringa. Alla fine la 
RAM disponibile si esaurisce e l'Ap¬ 
plesoft forza la temuta garbage col- 
lection. Questa può richiedere anche 
due o tre minuti, e si può verificare 
diverse volte perfino durante l’ordina¬ 
mento di un numero relativamente 
modesto di record. 

Per ovviare a questi inconvenienti 
è stata scritta una routine d'ordina¬ 
mento secondo questi criteri: 

1. E stata scritta in linguaggio mac¬ 
china, per poter ottenere un metodo 
di ordinamento migliore di quello 
dell'Applesoft. 

2. Senza garbage collection. Questa 
avrebbe vanificato lo scopo del pro¬ 
gramma di ordinamento. 

3. In grado di ordinare matrici strin¬ 
ga, reali e intere. Inoltre doveva ave¬ 
re posto per stringhe di qualsiasi lun¬ 
ghezza valida (da 0 a 255 caratteri). 

4. In grado di ordinare in disposizio¬ 
ne sia ascendente sia discendente. 

5. In grado di ordinare qualsiasi fa¬ 
scia di elementi di matrice scelta dal¬ 
l'utente. In aggiunta doveva essere 
possibile specificare la fascia dell'or¬ 
dinamento o mediante numeri interi 
(per esempio da 1 a 22) o mediante 
le variabili presenti nel programma 
in Applesoft (per esempio da FI a 
LS). 

6. Trasparente all’Applesoft; doveva 
inoltre funzionare con tutti i pro¬ 
grammi in Applesoft. 

7. Facile da usare, con la conseguen¬ 
te eliminazione della necessità di 
consultare ripetutamente un manuale 
d'istruzioni per poter usare una uti¬ 
lity in Applesoft. 

8. In grado di riorganizzare moltepli¬ 
ci matrici utilizzando una sola matri¬ 
ce come matrice sottoposta a ordina¬ 
mento (vale a dire come matrice chia¬ 
ve). 


Il punto 8 esige un'ulteriore spie¬ 
gazione. Supponiamo per il momen¬ 
to che nel nostro esempio di pro¬ 
gramma d'indirizzario il 34° elemen¬ 
to della matrice dei cognomi (LA$) 
contenga il cognome "Abate", che ri¬ 
sulta anche il primo cognome in or¬ 
dine alfabetico del file di dati. Così 
LA$(34) è uguale a "Abate",FI$(34) 
contiene il nome di battesimo del si¬ 
gnor Abate, SA$(34) contiene la via 
in cui abita e così di seguito. 

Al completamento dell'ordinamen¬ 
to non solo LA$(1) deve contenere 
"Abate", ma FI$(1) deve contenere il 
nome di battesimo del signor Abate, 
SA$(1) il suo indirizzo e così avan¬ 
ti. Di utility di ordinamento che ordi¬ 
nano rapidamente una singola matri¬ 
ce ce ne sono parecchie, ma nessuna 
permette ad altre matrici di seguire 
in pratica passo passo l'ordinamento 
della matrice chiave. 

Super Sort invece soddisfa tutti i 
requisiti sopra elencati. 

Come si usa Super Sort 

Super Sort (listato 1) si installa 
con il comando: 


BRUN SUPER.SORT 


in modo diretto oppure con: 


10 PRINT CHR$(4);"BRUN SU- 
PER.SORT" 


in modo indiretto (in un programma 
in Applesoft). 

Super Sort dev'essere installato pri¬ 
ma che venga fatta qualsiasi assegna¬ 
zione di variabile e l'installazione de¬ 
ve avvenire nella prima linea del vo¬ 
stro programma. 

Una volta eseguito con BRUN, 
Super Sort imposta HIMEM per pro¬ 
teggersi e imposta il vettore dell'Am- 
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persand, cioè del carattere &, ($3F5) 
in modo che punti a SUPER.SOR- 
T. Super Sort risiede in circa 1,3K 
di memoria ed è sistemato sotto il 
DOS o il ProDOS. Vi basta fare 
BRUN SUPER.SORT una volta al¬ 
l'inizio del programma. In ProDOS 
riceverete un messaggio di NO BUF- 
FERS AVAILABLE (nessun buffer 
disponibile) se tentate di fare il 
BRUN o il BLOAD del programma 
quando è già stato eseguito. 

Una volta installato, Super Sort 
viene richiamato dall'ampersand (&) 
seguito dal nome della matrice chia¬ 
ve da ordinare, dall'elemento iniziale 
della matrice, dall'elemento finale 
della matrice e dai nomi (eventuali) 
delle matrici asservite. Se l'espressio¬ 
ne dell’ultimo campo ha come risul¬ 
tato un valore inferiore o uguale al 
valore dell'espressione del primo 
campo riceverete un errore di ILLE- 
G AL QUANTITY (quantità non vali¬ 
da). 

Per esempio ciascuna delle seguen¬ 
ti linee in Applesoft ordinerà alfabe¬ 
ticamente gli elementi da 1 a 100 
del nostro file d’indirizzario: 


300 

&LA$,1,100JFI$, SA$,CI$,ST$,ZP 
300 

S=1 :L=100 : &L A$ ,S ,L,ZP, ST$ ,CI$ 
,SA$JFI$ 

300 

L= 100: &L A$, 1 ,L,CI$ ,ZP,S T$ JFI$, 
SA$ 


In merito a queste tre linee in Ap¬ 
plesoft si noti anche che: 

1. Gli elementi iniziale e finale 
della matrice L A$ possono essere nu¬ 
meri interi, come 1 e 100, o nomi 
di variabile, come S e L. Le espres¬ 
sioni, come L+3, sono ammesse nel 
primo e nell'ultimo campo, ma devo¬ 
no essere usate con cautela dati i li¬ 
miti di conteggio dei caratteri descrit¬ 
ti qui sotto. 

2. Le matrici asservite FI$, SA$, 
CI$, ST$ e ZP possono essere elen¬ 
cate in qualsiasi ordine. 

3. Le parentesi non vengono usate 
quando si specificano i nomi delle 
variabili di matrice. Il programma 
non confonderà i nomi abbreviati 
con i nomi delle variabili semplici. 

Per quanto Super Sort sia in grado 
di riorganizzare le matrici asservite 
in conformità con la matrice prima¬ 
ria o chiave, le matrici asservite non 
sono necessarie per usare Super 


Sort. Per esempio la seguente linea 
ordinerà gli elementi 33-665 della 
matrice a virgola mobile REALE: 


200 F=33:& REALE J,665 


Tutti gli esempi fatti sopra produ¬ 
cono ordinamenti ascendenti, cioè da 
piccolo a grande o da A a Z. Per in¬ 
vertire la disposizione dell’ordina¬ 
mento (vale a dire da grande a picco¬ 
lo o da Z a A) basta aggiungere una 
barra obliqua (/) alla fine della linea. 
Ad esempio per produrre un ordina¬ 
mento discendente nella matrice inte¬ 
ra 1% con la matrice reale asservita 
X scrivete: 


200 & I%,1,100,X/ 


• La velocità. 

Nessuna spiegazione di un pro¬ 
gramma di ordinamento sarebbe com¬ 
pleta senza un confronto dei tempi 
di ordinamento. Nell'ipotesi di un or¬ 
dinamento di 200 elementi per una 
matrice reale, intera o stringa Super 
Sort impiega circa tre secondi. L'Ap- 
plesoft impiega una quarantina di se¬ 
condi, supponendo che non ci sia al¬ 
cuna garbage collection e che si stia 
usando un ordinamento a bolle. Di 
conseguenza Super Sort è circa 14 
volte più veloce dell'Applesoft senza 
garbage collection. Con la garbage 
collection Super Sort è molte volte 
più veloce dell'Applesoft. 

• Le limitazioni. 

Super Sort ha due limitazioni. In 
primo luogo la lunghezza del nome 
di matrice, compresi le parentesi e il 
numero dei caratteri del numero di e- 
lemento o della variabile inclusi nel 
primo o nell'ultimo campo, non de¬ 
ve superare i 14 caratteri. Così pure 
il numero dei caratteri nel primo e 
nell'ultimo campo è limitato a no¬ 
ve. Raramente ciò costituisce un pro¬ 
blema, a meno che non usiate nomi 
di variabile molto lunghi. In secon¬ 
do luogo è permesso un massimo di 
otto matrici asservite. Queste limita¬ 
zioni pongono un compromesso fra 
la versatilità e l'efficiente impiego 
dello spazio di RAM. 

Come si introducono 
i programmi 

Se avete il Tool Kit Assembler co¬ 
piate il codice sorgente del listato 
1 e assemblatelo in modo che il file 
oggetto abbia nome SUPER.SORT. 


Se non disponete di un assembler an¬ 
date in Monitor con CALL -151 e 
copiate il codice esadecimale del li¬ 
stato 1. Salvate il programma con 
il comando: 


BSAVE 

SUPER.SORT,A$8FE3U$484 


Se il programma viene copiato uti¬ 
lizzando un assembler, prima di con¬ 
trollarlo con l'APPLE CHECKER 
3.0, è necessario caricarlo in memo¬ 
ria con l'istruzione BLOAD e salvar¬ 
lo con i parametri sopra indicati. 

Per introdurre il programma dimo¬ 
strativo in Applesoft, Bridge, copia¬ 
te il programma del listato 2 e sal¬ 
vatelo con il comando: 


S AVE BRIDGE 


Per un aiuto nell'introduzione dei 
listati di Applicando leggete la 
rubrica "Per chi comincia" in questo 
numero della rivista. 

Come sono memorizzate 
le matrici 

Prima di poter comprendere come 
funziona Super Sort si deve capire 
come l'Applesoft memorizza le ma¬ 
trici. Le più facili sono le matrici 
intere. Queste constano di segmenti 
di due byte, affiancati, nel formato 
byte alto, byte basso. 

Quanto segue rappresenta i primi 
cinque elementi di una matrice intera 
in cui ogni elemento di A%(n) è u- 
guale a n: 


00 01 
00 02 
00 03 
00 04 
00 05 


Per contro le matrici stringa con¬ 
stano di segmenti di tre byte, in cui 
il primo byte contiene la lunghezza 
della stringa e il secondo e terzo 
byte contengono l'indirizzo dei carat¬ 
teri della stringa nel formato basso¬ 
alto. I seguenti elementi di matrice 
stringa rappresentano sequenze di ca¬ 
ratteri di lunghezza, rispettivamente, 
da 1 a 5, a vari indirizzi di memoria: 


01 9F 8C ;1 carattere memorizzato a 
$8C9F 

02 9D 8C ;stringa di 2 caratteri con 
inizio a $8C9D 

03 9A 8C ;stringa di 3 caratteri con 
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Abbiamo già venduto 2 milioni di 
High Precision Data Memories. 



E siamo solo agii inizi. 


High Precision che, trattandosi di un di¬ 
schetto flessibile, dice tutto. 

Precisione per HP Data Memories è il 
risultato di una tecnologia avanzatissi¬ 
ma che si avvale delle ultime novità in 
fatto di materie prime, formulazione 
magnetica, costruzione e sistemi di 
confezione. 

Non c’è da stupirsi, se pensiamo che 
questo marchio di successo ha dietro di 
sè tutta l’esperienza commerciale e tec¬ 
nologica di un’azienda come la MEE. 
HP Data Memories unisce eccezionali 


caratteristiche di chiarezza del segna¬ 
le, alta resistenza del substrato in po¬ 
liestere, lunga durata. 

I numerosissimi test cui viene sottopo¬ 
sto durante il ciclo di fabbricazione ne 
garantiscono prestazioni molto superio¬ 
ri a quelle dettate dai normali standards 
quantitativi. 

Preciso, resistente, affidabile anche 
nelle situazioni più critiche, il dischet¬ 
to HP Data Memories - 
prodotto nei formati 8”, 

5 1/4”, 3 1/2” - è certi¬ 
ficato 100% errar free 


secondo le norme ANSI, ECMA, ISO, 
JIS, IBM, SHUGART. 

Del resto che sia un prodotto di primis¬ 
sima qualità è dimostrato dalla sua in¬ 
credibile diffusione, ben 2.000.000 di 
pezzi venduti in pochissimo tempo. 

Un "dischetto d’oro” in piena regola 
che ha tutte le intenzioni di continuare 
su questa strada fino ad un prossimo 
ancora più ambizioso traguardo. 



s.p.a. -20144 Milano-Via Boni, 29 , 

t. 02/4988541-telex324426'MEE-ltalia 


MEE 

Parliamone insieme. 








Jj ATTENZIONE! 


inizio a $8C9A 

04 96 8C ;stringa di 4 caratteri con i- 
nizio a $8C96 

05 91 8C ;stringa di 5 caratteri con i- 
nizio a $8C91 


Le matrici reali constano di seg¬ 
menti di cinque byte affiancati. La 
maniera in cui le matrici di variabili 
reali vengono memorizzate è analo¬ 
ga a quella delle matrici intere. Gli e- 
lementi sono lunghi cinque byte, 
che rappresentano ciascun valore in 
un formato speciale. 

Come funziona 
il programma 

All’ingresso Super Sort salva 
TXTPTR, azzera i valori interni e 
imposta FP ($FB) su TXTPTR (che 
è chiamato anche TP in qualche par¬ 
te del programma). Poi esplora la li¬ 
nea in Applesoft, usando la routine 
STVAR, e memorizza il nome della 
matrice chiave in ARO (la matrice 
chiave dell'ordinamento) e i nomi 
delle matrici asservite in AR1-AR8. 
Il contenuto del campo dell’elemento 
iniziale viene memorizzato in FIR¬ 
ST e il contenuto del campo dell'ulti¬ 
mo elemento viene memorizzato in 
LAST. ARO viene copiato in AR- 
LAST. 

Quando i nomi di matrice sono sta¬ 
ti memorizzati la routine VARTER- 
M memorizza il primo elemento 
(racchiuso fra parentesi) dopo i nomi 
di variabile. Il numero delfultimo e- 
lemento viene memorizzato dopo il 
nome di variabile ARLAST. 

Poi la routine BEGADR chiama 
la funzione dell’Applesoft PTRGET 
($DFE3). PTRGET localizza ogni 
variabile di matrice in memoria e dà 
l’indirizzo nell'accumulatore e nel re¬ 
gistro Y. PTRGET si occupa anche 
di calcolare le espressioni in FIRST 
e LAST, come LT+3. Gli indirizzi 
vengono memorizzati in AR0-AR8 
e ARLAST. Una volta determinati 
gli indirizzi iniziali delle matrici i 
nomi delle matrici non occorrono 
più. Poi gli indirizzi esistenti ad AR¬ 
CI e ad ARLAST vengono messi a 
confronto. Se l’indirizzo di ARO è 
superiore o uguale a quello di AR¬ 
LAST il programma smette con un 
errore di ILLEGAL QUANTITY. 

Una volta determinati gli indirizzi 
delle matrici, ha inizio il vero e pro¬ 
prio ordinamento nella routine SOR- 
T. Ogni diverso tipo di ordinamento 
(intero, reale e stringa) ha una pro¬ 


pria routine di confronto, cioè rispet¬ 
tivamente ICMP, RCMP e SCMP. 
SORT, all’ingresso, memorizza l’in¬ 
dirizzo della routine di confronto oc¬ 
corrente (ICMP, RCMP o SCMP) a 
PA3, con un'istruzione JSR. 

Super Sort usa un semplice ordina¬ 
mento a bolle. SORT imposta TP e 
FP sull’indirizzo ad ARO, la matrice 
chiave, dopo di che salta con JSR a 
PASS. 

PASS esplora l’intera matrice chia¬ 
ve e dà il valore massimo della ma¬ 
trice in CMAX e il numero d’ele¬ 
menti della matrice massima in MA- 
XELEM. La routine PASS richiama 
ICMP, RCMP o SCMP, a seconda 
del tipo della matrice chiave. 

Le routine di confronto richiamate 
da PASS differiscono nei particolari, 
ma ognuna di esse confronta CMAX 
con il valore esistente in TEST. TE¬ 
ST viene aggiornato di elemento in 
elemento fino a che si raggiunge la 
fine della matrice chiave. Inoltre una 
routine di confronto viene chiamata 
a confrontare ogni elemento e, all’u¬ 
scita, il bit di carry è uno se 
CMAX=>TEST e zero se 
CMAXcTEST. Poi PASS memoriz¬ 
za il valore di TEST in CMAX se 
CMAX=>TEST (ordinamento ascen¬ 
dente) o se CMAXcTEST (ordina¬ 
mento discendente) e procede a testa¬ 
re il valore seguente nella matrice fi¬ 
no a che viene raggiunto l’ultimo e- 
lemento della matrice. 

Quando PASS ha esplorato l'inte¬ 
ra matrice alla ricerca del valore mas¬ 
simo, ritorna a SORT che scambia 
il corrente elemento di ordinamento 
con il valore della matrice a MAXE- 
LEM sia per la matrice chiave sia 
per quelle asservite. Poi SORT ri¬ 
chiama IARR, che incrementa l'indi¬ 
rizzo per tutte le matrici e memoriz¬ 
za gli indirizzi aggiornati ad ARO- 
ARS. 

Questo procedimento viene ripetu¬ 
to fino a quando ARO è uguale ad 
ARLAST, in altre parole fino a 
quando l'ordinamento è completo. 
Poi Super Sort ripristina TXTPTR, 
lo sposta alla fine della linea a toma 
all’Applesoft. 

• Automodifica. 

Super Sort usa parecchi codici ad 
automodifica. Per esempio, anziché 
testare ripetutamente se la matrice 
chiave sia reale, stringa o intera pri¬ 
ma di richiamare RCMP, SCMP o 
ICMP, SUPER.SORT modifica l’in¬ 
dirizzo di una singola istruzione 


I listati Super Sort e 
Bridge sono pubblicati 
rispettivamente 
alle pagine 108 e 115 


JSR una volta all’inizio. Analoga¬ 
mente, anziché testare ripetutamente 
se l’ordinamento sia ascendente o di¬ 
scendente prima di effettuare (oppure 
no) lo scambio fra CMAX e TEST, 
SUPER.SORT cambia un’istruzione 
BCC a PA35 in un’istruzione BCS 
e viceversa. Questa prassi rende il 
programma più breve e veloce. 

Come funziona Bridge 

Il programma delle mani di Brid¬ 
ge, mescola un mazzo di carte, le di¬ 
stribuisce in quattro mani di tredici 
carte, ordina ciascuna mano per se¬ 
me e visualizza le mani sulla scher¬ 
mata di testo. I giocatori di bridge 
possono utilizzare il programma per 
esercitarsi nella dichiarazione. Ogni 
carta del mazzo è rappresentata da un 
numero intero compreso fra 1 e 52. 
Il mazzo viene mescolato riempien¬ 
do la matrice a virgola mobile DL 
con 52 numeri casuali e la matrice 
intera D% con numeri interi consecu¬ 
tivi da 1 a 52. Quando DL viene or¬ 
dinata a linea 150, D% viene inclusa 
come matrice asservita. Ne risulta u- 
na sequenza casuale di numeri interi 
in D%. 

Gli elementi 1-13 di D% sono ar¬ 
bitrariamente assegnati alla mano u- 
no, gli elementi 14-26 alla mano 
due, gli elementi 27-39 alla mano 
tre e gli elementi 40-52 alla mano 
quattro. 

Poi ogni mano viene ordinata a li¬ 
nea 170 specificando gli appropriati 
elementi primo e ultimo. 

Nella routine di visualizzazione si 
tratta di trovare le esatte posizioni o- 
rizzontale e verticale per la mano e 
per il seme (linee 220 e 250) e di 
convertire il numero intero in D% 
in un seme (linea 250) e in un rango 
(linea 260). La stringa C$ conserva 
i caratteri che rappresentano i ranghi 
e S$ conserva le lettere che rappre¬ 
sentano i semi. 

C Questo programma è disponibile ^ 
su dischetto. L’elenco, i prezzi 
e le modalità d’ordine di questo 
e degli altri dischetti disponibili 
sono riportati nella rubrica 
V Disk Service. 


©ByNibble e Applicando 
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Pressori negozi che espongono la nostra vetrofania. Fino al 15/6/1987 





Migliaia di premi m palio 
e un superpremio Anale. 


* 


GRANDE CONCORSO 


E Vf! ^C/,, 


Hettes 



Compra una confezione Verbatim Datalife 51/4” 2S/2D 
e chiedi al tuo rivenditore come partecipare. 

-Agenti Verbatim per l’Italia- 


r 

PIEMONTE: MARCO BOERI - (011) 3290769 
LOMBARDIA: DIGITECA snc - (0371) 33476 
VENETO: MODUL CENTER -(049) 775266 
LIGURIA: DELTA DATA - (010) 301559 
EMILIA ROMAGNA: FRANCO MUSI - (0522) 556040 
TOSCANA: FRANCESCO PETRARO - (055) 645069 
v_ 


LAZIO: INDEX snc - (06) 6221850 
ABRUZZO: GIUSEPPE MACCARONE - (085) 913430 
CAMPANIA: MICHELE PALMESE - (081) 7611100 
PUGLIA: SAVINO LA STELLA - (080) 215861 
SICILIA: DATA SUPPLY - (095) 322131 


\ferbatim 

Leader nel tempo. 


Verbatim Italia S.p.A. - Via Cernaia, 2 - 20121 Milano 


AUT. MIN. CONC. 









APPLE SHARE 



Il nuovo server della Apple è la risposta ai problemi di collegamento e di 
intercomunicazione di chi usa una rete Appletalk. Ecco come funziona. 


Un software 
per la rete 


Sempre di più è sentita l'esigenza 
di scambiare informazioni e dati al¬ 
l'interno di qualsiasi realtà aziendale 
e professionale, che sia strutturata 
con dei personal computer. Ancor di 
più questa esigenza è sentita da chi 
possiede una rete di Macintosh, col¬ 
legati tra loro in AppleTalk; infatti 
vista la versatilità e flessibilità della 
macchina è quasi un controsenso 
non poter disporre di file server co¬ 
me si deve. 

Ma ormai questo problema è risol¬ 
to grazie all’ormai ben noto software 
per la gestione della rete AppleTalk, 
denominato Apple Share File Server 
(ASFS). Con ASFS una rete di Ma¬ 
cintosh, collegati tra loro, diventa 
un ambiente unico di lavoro, in 
quanto è consentito di condividere le 
risorse, le applicazioni ed i documen¬ 
ti creati in un unico ambiente. 

Il software di installazione di A- 
SFS viene eseguito in due modi di¬ 
versi: 

• sul Macintosh, dedicato allo sco¬ 
po, e a cui è collegata la (o le) me¬ 
moria di massa da condividere; evi¬ 
dentemente questo Macintosh, che è 
il vero e proprio gestore della rete, 
non potrà essere usato per nulfaltro 
alFinfuori della gestione della rete 
AppleTalk 

• sugli altri Macintosh, che vengo¬ 
no chiamati Workstation (Stazioni 
di lavoro), collegati al primo in rete 
AppleTalk. 

ASFS supporta pienamente anche 
il PC IBM purché esso sia fornito 
della relativa scheda AppleTalk per 
PC, e del software di connessione ap¬ 
propriato. 

Il Server (Disco Rigido) si com¬ 
porta come il punto focale di imma¬ 
gazzinamento e di distribuzione delle 
informazioni, che circolano nella re¬ 
te; gli utenti accedono al server in 


modo completamente trasparente al¬ 
l'ambiente di lavoro, esattamente co¬ 
me se lavorassero in locale, con la 
differenza che mentre in locale le ri¬ 
sorse e i documenti sono utilizzati 
solo da quell'utente, col server Ap¬ 
ple Share tutti i dati immagazzinati 
sono disponibili per tutti gli utenti 
della rete. 

Inoltre è possibile assegnare ad un 


utente (o gruppo di utenti) un livel¬ 
lo particolare d’accesso, in modo tale 
da selezionare gli accessi ai documen¬ 
ti o alle cartelle: è questa una caratte¬ 
ristica tipica di Apple Share, e che 
lo pone qualitativamente al di sopra 
di prodotti analoghi per reti locali, 
ed è un metodo unico con cui viene 
concesso l'accesso alle informazioni 
immagazzinate sul server. 


Chooser 




\ 


AppleShare 


AppleTalk I.. 


n 


a 


ImageWriter LaserWriter 




Select a file server: 



User Name: 


Alfonso 


AppleTalk 


® Active 
O Inactive 


3.0a2 


Figura la. 


Connect to thè file seruer "HD20 SCSI" as: 
O Guest 

(S) Registered User 

Name: 

Password: 


f Cancel ^ 



Figura 1b. 
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Macintosh SE. Da una grande idea, 
un’idea ancora più grande. 



Macintosh” SE nasce come versione 
potenziata deH’affermato Macintosh 
Plus, maggiore per velocità e capacità, 
ma anche per possibilità di impiego in 
azienda. 

Tutte le doti consolidate della 
tecnologia Macintosh • interfaccia 
grafica, uso del mouse - raggiungono in 
Macintosh SE nuovi livelli di qualità. 
Ugualmente nuovo e senza precedenti è 
il grado di connettibilità con sistemi 


non Apple® e mainframe. 

A differenza di Macintosh Plus, disco 
rigido e unità disco possono essere 
interni, con il risultato di una maggiore 
velocità e compattezza. La memoria 
incorporata può giungere fino a 4 Mb. 

Uno slot interno può alloggiare 
schede di diversa tipologia, e assicurare 
la comunicazione con sistemi MS-DOS 
oUnix. 

La massima integrabilità in ambienti 


non Apple, rende Macintosh SE la 
soluzione ideale per un personal 
computer che, in azienda, incrementa sia 
la produttività individuale che la 
comunicazione interpersonale. 


m, Apple Computer 


Apple, il marchio Apple, Macintosh, sono marchi di Apple Computer Ine. MS-DOS è un marchio registrato di AT&T Information Systems. 


INNOVAZIONE 






















Ora potete espandere Macintosh Russino a 
2 megabyte di memoria lineare e continua. 

Di semplice installazione, viene fornita assieme a 
MaxRam-MaxPrint che permette di creare 
velocissimi dischi RAM ed inoltre lo spool di 
stampa su Image Writer. Viene pure fornito 
Max Chili, un efficace ventilatore piezoelettrico. 
Compatibile con tutti i programmi Macintosh. 
MaxSave «una novità» ora disponibile permette 
di mantenere intatto il contenuto del RAM disk, 
in caso di "bomba". 

Data Base relazionale per archiviare dati di 
qualsiasi tipo (anche immagini). Il numero di 
relazioni è illimitato. Permette di aprire 
contemporaneamente 8 file. Ogni campo viene 
automaticamente indicizzato. Possiede una gran 
capacità di calcolo. I dati vengono introdotti 
secondo un formato scheda definibile dall'utente. 

Compatibile con altri programmi con 
formattazione dei dati ASCII o SILK. I dati vengono 
registrati automaticamente. E' possibile definire il 
formato della stampa con estrema precisione, 
anche per la stampa su Laser. 


Un programma CAD per il Macintosh. Una volta 
impostata la scala e le unità di misura, MacDraft 
esegue automaticamente tutti i calcoli: quotatura, 
calcolo dell'area, posizione del cursore. La 
funzione zoom permette di ingrandire un 
particolare. E' possibile disegnare sopra 
documenti MacPaint ottenuti, ad esempio, 
mediante uno scanner. Collegato a MacPIot 
permette di pilotare un plotter. 



Corso Italia 149-34170 Gorizia 
telefono 0481 /30909 - 32790 


gjDB AppB© evolto © p©ir ©©tnrSgpotnid)©^©] 



Figura 2. 


Ovviamente per una gestione omogenea e razionale del 
network è indispensabile che vi sia un'unica persona re¬ 
sponsabile sia deH'installazione sia dell'assegnazione del¬ 
le priorità o livelli d'accesso, che in gergo viene chiama¬ 
to Administrator, per differenziarlo dagli Users. 

Le assegnazioni fornite da parte dell'Administrator, in¬ 
sieme alle priorità d’accesso definite dagli Users, specifi¬ 
cano non solo chi deve accedere a quelle informazioni, 
ma anche in che modo devono accedere alle stesse. 

Come già accennato precedentemente, l'installazione 
software del server richiede almeno 1 Mb di memoria 
RAM e 128 Kb di memoria ROM, e quindi deve essere 
effettuato su un Macintosh Plus a cui è collegato il di¬ 
sco rigido (o i dischi rigidi, infatti ricordiamo che a un 
singolo Macintosh possono essere collegati in cascata si¬ 
no a sette dischi rigidi SCS) che funge da server, mentre 
l'installazione software delle workstation può essere effet¬ 
tuata su Macintosh 512K, 512K/800, Plus e SE. Cia¬ 
scun Utente della rete deve far partire il software di instal¬ 
lazione chiamato Workstation Installer, che aggiorna au¬ 
tomaticamente sia il System sia il Finder; inoltre questo 
software di installazione aggiunge agli accessori di scri¬ 
vania, presenti sotto il menù É, il Chooser (da usare per 
attivare il File Server) e un’opzione presente sempre nel 
menù 4 oppure nel menù File, in grado di effettuare la 
definizione degli accessi privilegiati. 

Invece il software di installazione del server deve esse¬ 
re fatto girare su un Macintosh Plus a cui sia collegato 
un disco rigido (SCSI o meno, ma che sia autostart). U- 
na volta che l'Administrator ha installato il software del 
server, il Macintosh non può essere utilizzato come Wor¬ 
kstation. 

E’ questa l’obiezione principale che si può fare a A- 
SFS: il dover dedicare una macchina esclusivamente alla 
gestione della rete; tuttavia il costo aggiuntivo di questa 
macchina dedicata viene ammortizzato dai vantaggi che 
comporta una rete AppleTalk gestita da Apple Share. 


64 











































Il server gestisce al suo interno, e in maniera invisibi¬ 
le agli utenti, un data base degli utenti della rete, rispon¬ 
dendo alle loro richieste per gli accessi ai file, ed organiz¬ 
za in maniera ottimale lo sfruttamento del disco rigido 
che funziona da server. Inoltre poiché il software di ge¬ 
stione del server non occupa nessuno spazio riservato 
per i programmi applicativi (infatti gira nel System He- 
ap), il server può far girare contemporaneamente del sof¬ 
tware scritto specificatamente per Apple Share (come la 
posta elettronica InBox Apple Share, spooler di stampa 
come Laser Share e data base dedicati). 

Il software co-resident, compare come applicazione atti¬ 
va, mentre il programma Apple Share lavora in modo 
background, ovvero in maniera del tutto trasparente nei 
confronti dell'utente. Gli utenti accedono al server trami¬ 
te il Chooser, presente nel menù 4, allo stesso modo in 
cui si selezionerebbe la LaserWriter per eseguire una 
stampa (figura la). 

ASFS supporta più reti Apple Talk, a patto che tali re¬ 
ti siano interconnesse tra loro tramite accessori adeguati, 
come TlnterBridge della Hayes (figura 3). 

Dopo aver selezionato un server, bisogna collegarsi al¬ 
la rete scrivendo il nome riservato e la relativa password 
o chiave d'accesso (figura lb); coloro che non sono re¬ 
gistrati come utenti, vengono visti come ospiti tempora¬ 
nei, ma ovviamente hanno dei livelli d'accesso a priorità 
molto bassa. 

Dopo che il server ha verificato nome e password rela¬ 
tiva, si possono caricare i volumi disponibili, dall'elen¬ 
co dei volumi della rete; ciascun utente può caricare fino 
a 9 volumi contemporaneamente. Poiché il server ha me¬ 
morizzato l'elenco degli utenti e i loro livelli di priorità 
di accesso, si possono caricare solo quei volumi ai quali 
si ha diritto d'accesso. 

Una volta che un volume è stato caricato, esso appare 
in ambiente scrivania come se fosse stato caricato in lo¬ 
cale; su di esso si possono compiere le consuete opera¬ 
zioni di lavoro come lanciare applicazioni, eseguire stam¬ 
pe, duplicare documenti o spostare file o cartelle. 

Una cosa da specificare riguarda il problema della mul- 
tiutenza. Infatti non è possibile da parte di più utenti lan¬ 
ciare la stessa applicazione monoutente; ma ciò dipende 
dalle caratteristiche delle applicazioni create fino adesso 
per Macintosh. Ci sono già dei programmi in grado di 
garantire la piena multiutenza sotto Apple Share, tra di 
essi vale la pena citare l’ormai famoso data base relazio¬ 
nale programmabile Omnis3 in versione Apple Share. 

Ma la caratteristica più importante di ASFS è la traspa¬ 
renza nel creare sistemi di sicurezza per l’accesso a cartel¬ 
le o file da parte dei creatori o degli utenti. Infatti ognu¬ 
no può assegnare dei diritti, detti access privileges, a do¬ 
cumenti, cartelle, o addirittura a interi dischi; tali livelli 
di priorità possono essere assegnati a un singolo utente, 



ECCO TRE COMPAGNI 
PER LA STAMPANTE LASER 

SCAN 300 è il primo di una famiglia di digitalizzatori 
che permettono di trasportare nei programmo per 
Macintosh immagini lette con la risoluzionedi 300 
punti per pollice. Grazie a SCAN 300, con software 
per impaginazione facilmente reperibile, diventerà 
estremamente semplice la preparazione di 
manuali, lettere circolari, cataloghi ricchi di 
illustrazioni. Il software evoluto di cui è dotato 
permette di aprire contemporaneamente sino a 5 
finestre tra le quali si possono, con operazioni di 
taglia e incolla, elaborare disegni e fotografie, con 
la possibilità di intervenire sugli stessi. 

Scan 300 SF possiede un introduttore automatico 
di fogli. E 1 particolarmente adatto per le 
applicazioni che richiedono software per il 
riconoscimento ottico dei caratteri. 



Nello SCAN 300 FB l'immagine da riprendere o il 
testo da leggersi vengono appoggiati su una lastra 
piana. Può essere usato assieme a programmi per 
il riconoscimento di testi. 


WtiMfe a. d li 

ABATON CHARACTER RECOGNITION 

Questo nuovo prodotto software permette di 
riconoscere 50 tipi di caratteri diversi, anche se 
mescolati, all'Interno di un testo. Il testo può essere 
letto in maniera automatica, ottenendo un file 
ASCII. E' quindi possibile l'utilizzo del file ottenuto 
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esclusiva del suo 
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Creatore 


Owner 

Group 

Every one 

Cartella a disposi- 

zione per tutti I _ 

See Folders : 

See Files: 

SI 

SI 

SI 

E 

SI 

SI 


Make Changes: 

si 
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SI 



Owner 

Group 

Every on< 

Cartella accessibile (ìf|A 
solo in lettura blùHShUU 

See Folders : 

See Files : 

SI 

SI 

□ 

□ 

□ 
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Make Changes: 

SI 

SI 

SI 



Owner 

Group 

Every one 

Cartella riservata 

solo al gruppo MMm 

See Folders : 

See Files : 

SI 

SI 

SI 

si 

□ 

□ 

Make Changes : 

SI 

si 

□ 


Figura 4. 


a un gruppo di utenti o a tutti. 

Per far ciò è sufficiente attivare 
l'opzione Access Privileges sotto il 
menù É, oppure l'opzione Get Privi¬ 
leges presente nel menù File (figu¬ 
ra 2). E' da notare che un creatore 
può modificare le priorità assegnate 
ai documenti creati da lui, mentre 
gli altri possono solo vedere questi 
diritti d'accesso. I livelli di priorità 
assegnabili sono tre: 

• See Folders: permette agli altri 
solo di vedere la cartella creata conte¬ 
nente documenti privati 

• See Files: permette agli altri di 
vedere i propri documenti, di aprirli 
e copiarli, ma non di modificarli 

• Make Changes: permette agli al¬ 
tri tutte le operazioni della voce pre¬ 
cedente, con in più la possibilità di 
modificare i file, e addirittura di can¬ 
cellarli. 

L'utente potrà assegnare questi pri¬ 
vilegi a se stesso, al suo gruppo di 
appartenenza (se esiste), oppure a tut¬ 
ti gli utenti della rete (figura 4). 

Come accennato già in precedenza, 
è opportuno che sia una sola perso¬ 
na nel gruppo di utenti della rete, 
che svolga le funzioni dell’Admini- 
strator, e quindi si occupi di registra¬ 


re nuovi utenti, di assegnare gli uten¬ 
ti ai gruppi, e di effettuare il backup 
delle informazioni immagazzinate 
nel server; in questi lavori l'Admini- 
strator può essere supportato da un 
programma chiamato AppleShare 
Admin,e che può essere fatto girare 
sulla macchina che funge da gestore 
collegata al server. Tuttavia prima di 
far partire questo programma è op¬ 
portuno che l'Administrator scolle¬ 
ghi l'ASFS, in caso contrario potreb¬ 
be procurare una perdita dei dati con¬ 


servati nella memoria di massa. 

Senza dubbio questo nuovo prodot¬ 
to per la rete AppleTalk si rileva u- 
no strumento estremamente raffinato 
e professionale, in grado di migliora¬ 
re le prestazioni dei Macintosh colle¬ 
gati in rete locale. Per maggiori in¬ 
formazioni potete rivolgervi ai vo¬ 
stro rivenditore di fiducia oppure di¬ 
rettamente alla Apple Computer in 
Via Rivoltana 8 a Segrate (MI), 
telefono 02/7533751-2-3-4-5. 

Alfonso Scoppetta 


... e Meucci esclamò: 



t 

# 



Insieme alla calcolatrice, all’archivio appunti, 
al puzzle e agli altri accessori, ora é possibile 
inserire nell'opzioni mela di un qualsiasi pro¬ 
gramma del Macintosh anche MacTel, un com¬ 
binatore telefonico che permette di gestire una 
rubrica e di fare automaticamente la telefonala 
a un abbonato memorizzato. MacTel vi per¬ 
mette di comporre un numero telefonico anche 
quando state lavorando con il Mac: basta at¬ 
tivare MacTel dal menù mela, selezionare la 
persona che si vuol chiamare, richiudere 
MacTel e continuare il proprio lavoro. Se l’u¬ 
tente da voi selezionato ha la linea occupata 
non c’é da preoccuparsi: MacTel é instancabile 
e richiamerà lo stesso numero fino a che non 
lo troverà libero. 

Oltre a ciò é anche possibile programmare una 
telefonata: arrivati al giorno ed orario stabiliti, 
qualsiasi cosa stiate facendo, MacTel vi av¬ 
viserà chiedendovi di confermare o meno la 
chiamata. 

Prezzo (Hardware compreso): 

£ 189.500 




Se vuoi maggiori informazioni 


ci? 


--- - 1 

ca MacTel invia, senza impegno! 
questo tagliando a: 


Micro Progettazione Avanzata 
Piazza Merolli, 44 
00151 Roma - Tel. 06/5235376 


Nome. 

Cognome. 

Società. 

Indirizzo.. 



MacTel é prodotto e distribuito dalla 



Ricerca e sviluppo software 
























Sono tutte applicazioni di Omnis3, da usare quindi con tale programma o 
con il suo RunTime. Rivolte soprattutto ai professionisti, ma non solo, 
consentono di risolvere mirabilmente problemi gestionali assai complessi. 


La soluzione c’è 


Quante volte vi siete rivolti a un 
Rivenditore Apple, alla ricerca di un 
software specifico per le vostre esi¬ 
genze, che potesse essere personaliz¬ 
zato, non costasse molto, fosse sicu¬ 
ramente affidabile e garantito dalla 
stessa Apple? Ebbene qualche tempo 
fa la Apple mise in piedi un proget¬ 
to molto interessante, il cui proget¬ 
to era di fornire con tempi estrema- 
mente brevi agli Apple Center una 
serie di soluzioni software, a basso 
costo e facilmente modellabili su mi¬ 
sura delle esigenze dell’utenza finale. 
Tale progetto è oggi operativo, ed è 
in grado di rispondere ai quesiti di 
cui sopra, grazie a numerosi pacchet¬ 
ti verticali prodotti con Omnis3.1 ri¬ 
venditori coinvolti in questo proget¬ 
to, sotto la diretta guida e controllo 
della Apple Computer stessa in mo¬ 
do garantire qualità e affidabilità, so¬ 
no impegnati sia nella personalizza¬ 
zione di queste soluzioni sia nell’as¬ 
sistenza e nell’eventuale installazio¬ 
ne, qualora fossero complessi. 

Vediamo le prime quattro applica¬ 
zioni già disponibili, che poi analiz¬ 
zeremo in dettaglio, a partire da que¬ 
sto numero. Innazitutto è opportuno 
precisare che trattandosi di applica¬ 
zioni create con Omnis3, per poterle 
utilizzare bisogna essere in possesso 
di Omnis3 o del suo RunTime. Que¬ 
st'ultimo può essere acquistato an¬ 
che con il Disk Service (pag. 130). 

Cicerone 

E’ un’applicazione (che può essere 
personalizzata dagli autori) destinata 
alla gestione di Studi Legali ed è ge¬ 
stibile in multiutenza Più dettagliata- 
mente l'applicazione permette: 

• l'impostazione della maschera stan¬ 
dard con i dati anagrafici dello stu¬ 
dio; 

• la gestione di più avvocati in un 
singolo studio; 


• la creazione e la gestione di un ar¬ 
chivi dei tipi di pratiche gestibili dal¬ 
lo studio; 

• la creazione e la gestione di un ar¬ 
chivio dei diritti organizzati secondo 
la tabella forense; 

• la gestione di tutti i tipi di spese - 
borsuali - soggette a IVA sostenute 
dallo studio durante la gestione della 
pratica; 

• la creazione e la gestione di un ar¬ 
chivio degli onorari organizzati se¬ 
condo la tabella forense; 

• la creazione e la gestione di un ar¬ 
chivio degli operatori, degli avvocati 
e dei corrispondenti che lavorano 
presso e per lo studio, e la gestione 
dei loro costi in base a una suddivi¬ 
sione temporale; 

• la gestione di tutte le pratiche cura¬ 
te dallo Studio - pratiche in essere - 
e il trasferimento di tali pratiche in 
un archivio storico che ne consente 


la consultazione in qualsiasi momen¬ 
to; 

• la movimentazione delle pratiche 
per diritti, onorari, borsuali, borsua¬ 
li N.I., operatori e forfait; 

• la creazione e la stampa di docu¬ 
menti come la notula proforma (inte¬ 
stata a Società, Persona Fisica o Do- 
minus), dettaglio relativo alla prati¬ 
ca, acconti e fattura finale, con la 
possibilità di stampare, quando lo si 
voglia, un modulo delle ritenute d'ac- 
conto e un modulo per la descrizione 
degli adempimenti IVA; 

• la gestione di un'agenda giornaliera 
degli appuntamenti; 

■ la gestione di uno scadenziario che 
partendo da un giorno prefissato se¬ 
gnala le varie scadenze e impegni; 

• la stampa di report per gli elenchi 
degli elementi contenuti nei vari ar¬ 
chivi, come l'elenco pratiche, il re¬ 
pertorio per singolo avvocato, la ri- 
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CICERONE .AC D ATI .cicerone 



0mnis3 


Figura 2. 


«CICERONE ©» 


Buongiorno e Buon lauoro con «CICERONE ©»! Rei. 1.0 


Questo programma é stato realizzato dalla 

COMPUTER RRER sne 


Inserire il H° terminale su cui state lavorando 
considerando che deve essere UNICO in tutta 
la rete 


N° Terminale... [T] 


C0I1PUTER RRER SNC Uia fì. Uolta 27/a 20058 Uil lasanta (MI ) 
Uia G. Carducci 2 20058 Uillasanta (MI) 
Tel. 039/306081 039/303726 


OK 


j=^ f Annulla ] 


Figura 4. 


Per Tavvocato c’è Cicerone 


chiesta di saldo delle pratiche in pen¬ 
denza e i solleciti; 

• la creazione e la stampa di statisti¬ 
che riguardanti i dati più significati¬ 
vi dello studio inerenti a un determi¬ 
nato lasso di tempo, quali le prati¬ 
che, i diritti, i borsuali, gli onorari, 
gli operatori ed il fatturato. 

Altre informazioni sono riportate 
nel riquadro a lato. 

Il costo di tale applicazione è di L. 
1.500.000 + Iva. 

GesDent Plus 5.0 

Questa applicazione è stata studia¬ 
ta per la gestione di tutte le fasi cli¬ 
niche e amministrative di uno studio 
dentistico. Infatti con GestDent Plus 
5.0 è possibile: 

• gestire l’archivio pazienti dello stu¬ 
dio, tenere aggiornato il repertorio 
della clientela; 

• avere in ogni momento aggiornata 
la situazione amministrativa dei pa¬ 
zienti e dei fornitori; 

• stampare in automatico lettere di ri¬ 
chiamo ai pazienti per visite periodi¬ 
che o per insoluti; 

• effettuare velocemente preventivi 
per lavori da eseguire; 

• avere in ogni momento il quadro 
completo della situazione dei lavori 
del paziente; 

• tenere aggiornata una agenda degli 
appuntamenti, con possibilità di 
stampare il memorandum degli ap¬ 
puntamenti per ogni paziente, e la 
possibilità di avere l'elenco dei pa¬ 
zienti a cui telefonare per conferma; 

• gestire la cassa e la fatturazione, 
sempre in automatico. 

Il costo di questa applicazione, che 
viene fornita aperta su richiesta, è di 
L. 700.000 + Iva. 

GeAC per il magazzino 

E’ un programma in grado di svol¬ 
gere tutte le funzioni caratteristiche 
della gestione di un magazzino (cari¬ 
co, scarico, situazione dei progressi¬ 
vi annuali) e di elaborare la contabili¬ 
tà Clienti-Fornitori, e i problemi I- 
nerenti come la preventivazione, la 
fatturazione e la bollettazione, for¬ 
nendo un saldo aggiornato delle mo¬ 
vimentazioni avvenute neU'archivio. 

GeAC dà la possibilità di creare 
preventivi, bolle e fatture passando 
da una fase all’altra in maniera del 
tutto automatica. Inoltre offre: 

• possibilità di emettere note di accre¬ 
dito; 


Dopo avere acceso Macintosh e il di¬ 
sco rigido secondo le norme d’uso re¬ 
lative, inserite nell’unità disco inter¬ 
no il disco programma di Omnis3 
Plus - versione Runtime - e copiate 
sul disco rigido il programma e il fi¬ 
le chiamato Omnisi 3.info; dopo ta¬ 
le operazione espellete il disco d in¬ 
serite quello contenente Cicerone, e 
trasferite sul disco rigido le icone re¬ 
lative alla libreria Cicerone e ai dati 
Cicerone.dati. A questo punto trami¬ 
te il Font/DA Mover installate nel 
vostro sistema corrente il font Mona¬ 
co che troverete sul dischetto di Cice¬ 
rone. 

Un'avvertenza fondamentale: pri¬ 
ma di cominciare a lavorare control¬ 
late dal Pannello di Controllo (sotto 
il menù 6) che non sia attivata la 
memoria tampone, nel caso lo fosse 
disattivatela (figura 1). 

Dopo aver eseguito queste opera¬ 
zioni preliminari siete pronti per la¬ 


vorare con Cicerone e a video la si¬ 
tuazione sul disco è come mostrata 
in figura 2. 

Con un doppio clic sull'icona Ci¬ 
cerone (Library) il programma viene 
caricato e vi apparirà una finestra in 
cui scrivere la password dell’utente 
(figura 3). Dopo averla inserita, 
viene attivata la maschera per la de¬ 
terminazione del numero di termina¬ 
le su cui state operando (tale numero 
deve essere unico in tutta la rete, ed 
in caso di monoutenza esso è sem¬ 
pre uguale al) essendo Cicerone ge¬ 
stibile anche in multiutenza (figura 
4). 

A tale proposito va tenuto presen¬ 
te in fatto che per la multiutenza c'è 
bisogno della versione Omnis3 Mul- 
tiuser. 

Un consiglio da seguire sempre co¬ 
me operazione fondamentale, è quel¬ 
lo inerente le copie di sicurezza dei 
dati, che va fatta sistematicamente al- 
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Password utente ? 




Modifica password 1 


OK 


Figura 3. 
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—~~= CICERONE - Anagrafica studio -=^= 

Rag. sociale... 

Studio Legale Luigi Rosei 

Indirizzo. 

Uia Roma H° 123 

Località. 


C.fl.p. 

M i 1 ano 

Prouincìa. 

20100 


O 


Modifica] 


Esci 


Figura 5. 



i loro problemi 
Macintosh 



RSSO Engineering 

Progettazione 
Consulenza Software 


la soluzione: 

ASSOcalc 

calcolo di strutture in cemento 
armato in zona sismica o meno. 
Fondazioni con trave rovescia. 
Telai non ortogonali. 

ASSOgraph 

generazione automatica dei di¬ 
segni esecutivi di travi, fonda¬ 
zioni, pilastri. Scelta ferri 
dritti o piegati.Computo metrico. 


la fine di ogni sessione di lavoro. In 
genere è consigliabile fare la duplica¬ 
zione alla fine di ogni giornata lavo¬ 
rativa; tuttavia se la mole di lavoro 
e l'importanza dei dati aumentasse 
considerevolmente è bene fare le co¬ 
pie di sicurezza anche due volte al 
giorno, in modo da limitare in asso¬ 
luto qualunque rischio di perdita dei 
dati. E' stata calcolata per tutti gli ar¬ 
chivi di Cicerone una stima approssi¬ 
mativa di occupazione e di numero 
di record massimi gestibili, così sud¬ 
divisa: 

- appuntamenti avvocati: n. record 
1.000 per 889 Kb di occupazione 

- movimenti pratiche: n. record 
10.000 per 4,7 Mb di occupazione 

- agenda udienze: n. record 1.000 
per 820 Kb di occupazione 

- pratiche: n. record 1.000 per 1,4 
Mb di occupazione. 

A questo punto si entra nel vivo 
dell'applicazione e si può cominciare 
effettivamente a lavorare. Definito il 
numero di terminale la situazione a 
video mostra solamente la barra con 


i menù dell’applicazione; oltre ai me¬ 
nù É, Archivio, Componi, vi sono 
i menù Tabelle, Personale, Pratiche 
(che a sua volta installa i menù Mo¬ 
vimenti ed elaborati), Memo e Stam¬ 
pe (che installa il menù Statistiche), 
come si può vedere in figura 5. 

Per poter lavorare correttamente 
con Cicerone è necessario impostare 
precedentemente una serie di archivi 
che verranno poi utilizzati dal pro¬ 
gramma per la gestione del lavoro. 
Tali archivi riguardano l’anagrafica 
dello studio, i tipi di pratiche, i dirit¬ 
ti, i borsuali, gli onorari, il persona¬ 
le che lavora nello studio, le scaden¬ 
ze, la tabella oraria dei singoli avvo¬ 
cati. Una volta creati questi archivi è 
comunque possibile aggiungere, mo¬ 
dificare o cancellare record inseriti, 
oppure effettuare delle ricerche all’in- 
temo dei diversi elenchi. 

Cicerone si presenta in un'elegante 
confezione che, oltre al dischetto, 
contiene tutta la documentazione re¬ 
lativa, molto chiara ed esauriente, re¬ 
alizzata con Apple Edit. 


ASSOfond 

trave alla Winkler; fondazioni 
su plinti: progetto e verifica; 
fondazioni su pali. 

calc,graph e fond rappresentano 
il primo reale sistema di lavoro 
integrato, per l'ingegneria 
civile, prevedendo la completa 
interscambiabilità dei dati. 

ASSOsezioni 

Verifica e progetto di sezioni 
rettangolari o a T soggette 
anche a carichi di punta. 


A ASSO Engineering 

IIP Progettazione 
\T Consulenza Software 


Roma, via Tessalonica 47 
tei. 06/5573027 

Macintosh e' un marchio registrato 
della appiè computer ine. 










































































Un mouse. 

La sua Mouscotte. 



Niente più segni sulla scrivania. 

E una superficie liscia, ideale, appositamente 
studiata per assicurare la massima scorrevolezza 
ed efficienza al mouse. Sotto, uno strato di gomma: 
la Mouscotte non si sposta. Chiedi Mouscotte ai 
migliori Computer Shop Apple. Oppure richiedilo 
direttamente a Editronica usando il tagliando di 
questa pagina. 


Mai più 

un mouse senza Mouscotte 


Per ricevere Mouscotte basta compilare e spedire subito questo 
tagliando a Editronica Sri, Corso Monforte 39, 20122 Milano. 

I 1 

□ Speditemi subito Mouscotte. Accludo assegno non trasferibile 
intestato a Editronica Srl di lire 29.500 comprensive di Iva e 
spese di spedizione al mio indirizzo. 

□ Speditemi subito Mouscotte. Accludo ricevuta di versamento di 
lire 29.500 sul conto corrente postale n. 19740208 intestato a 
Editronica Srl. 

□ Speditemi subito N.Mouscotte. Accludo ricevuta di 

versamento / assegno di lire. 

□ Desidero fattura. 

Il mio Codice fiscale/Partita Iva è:.,,... 

Cognome . Nome.. 



• possibilità di stampare ricevute 
bancarie con relativo scadenziario; 

• possibilità di variare le aliquote Iva 
in tutto l'archivio; 

• possibilità di modificare i prezzi de¬ 
gli articoli di una percentuale stabili¬ 
ta o secondo predeterminati arroton¬ 
damenti, agendo su tutto l'archivio o 
solo in parte di esso. 

Il costo di questa applicazione, che 
viene fornita aperta su richiesta, è di 
L. 700.000 +Iva. 

Condominio 

L'applicazione Millesimi permette 
la gestione contabile di un condomi¬ 
nio; in particolare l'applicazione per¬ 
mette di gestire: 

• tutte le informazioni relative a o- 
gni singola unità immobiliare con i 
dati anagrafici dei proprietari, non¬ 
ché i parametri di ripartizione delle 
singole unità secondo le tabelle mil- 
lesimali; 

• i titoli delle suddette Tabelle mille- 
simali; l'applicazione consente l'uso 
diretto delle varie voci, che possono 
quindi variare da un Condominio al¬ 
l'altro. Il numero massimo di Tabel¬ 
le millesimali e quindi dei criteri di 
ripartizione delle spese è 9; 

• le scadenze rateali, fino a 9, per i 
versamenti delle rate in acconto; i- 
noltre è possibile avere scadenze dif¬ 
ferenziate da un condominio all'al¬ 
tro, con l'ovvia possibilità di modifi¬ 
carle di gestione in gestione; 

• le spese sostenute durante la gestio¬ 
ne, con registrazione degli importi, 
delle date, delle Tabelle e delle Scale 
secondo le quali esse dovranno esse¬ 
re ripartite a fine gestione per il Bi¬ 
lancio consuntivo; 

• i versamenti in acconto ricevuti dai 
condomini durante la gestione per il 
calcolo sul Bilancio consuntivo; 

• gli addebiti particolari: infatti è 
possibile addebitare a ogni singola u- 
nità immobiliare determinate spese 
sostenute per essa, come ad esempio 
interessi passivi e spese imputabili 
al singolo condomino; 

• la stampa dei seguenti documenti: 
Anagrafiche, Tabelle Millesimali, E- 
tichette per l'invio della corrispon¬ 
denza, Prima Nota spese sostenute, 
Prima Nota versamenti ricevuti, Ta¬ 
bulato Rate, Solleciti di Pagamento, 
Bilancio Consuntivo, Riparto Con¬ 
suntivo, Riparto Preventivo. 

Il costo di questa applicazione, che 
viene fornita aperta su richiesta, è di 
L. 800.000 + Iva. 


Indirizzo. 



Cap 


Città 


Prov. 

















Nuovo Ready, Set, Go 3 completamente rinnovato, 

sempre più facile e preciso 


Ready, Set, Go 3 è l’innovativo pacchetto per editoria elettronica personale con 
Apple Macintosh (512K o Plus) collegato a stampante LaserWriter, Imagewriter o 
fotocompositrice Linotron. 

Ready, Set, Go 3 permette di impaginare documenti su qualsiasi gabbia, 
disponendoli quindi su più colonne, inserendo grafici o riquadri per tabelle, e 
permettendo qualsiasi modifica sul testo con reimpaginazione automatica. 

Ready, Set, Go 3 è nella versione 3 completamente riscritta e raggiornata rispetto 
alla versione precedente. 

Ready, Set, Go 3 è completamente italiano, e quindi di semplice ed immediato utilizzo. 
Ready, Set, Go 3 è molto veloce, in quanto minimizza gli accessi a disco e consente 
di lavorare su un numero elevato di pagine. 

Ready, Set, Go 3 possiede un completo word processor: i testi da impaginare e 
stampare possono quindi essere digitati direttamente utilizzando Ready, Set, Go 3, 
oltre che importati dalla maggior parte dei word processor come MacWrite e 
Microsoft Word. 

Ready, Set, Go 3 permette di effettuare qualsiasi tipo editing del testo, come la 
variazione dei corpi tipografici dei caratteri, della loro spaziatura orizzontale e 
verticale, degli attributi di stampa, delle fonti di caratteri, oltre che l’eliminazione o 
aggiunta di parti di testo con reimpaginazione automatica. 


r 


Desidero ricevere materiale illustrativo su Ready, Set; Go 3. 

Cognome e nome:_ 

Azienda:_ 

Via:_ 

CAP:_Città_ 
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Ready, Set, Go 3 permette di importare facilmente immagini grafiche, che possono 
essere inserite in qualsiasi parte del documento con reimpaginazione automatica del 
testo circostante. 

Ready, Set, Go 3 consente di osservare a video l’esatto aspetto della pagina 
stampata, in modo da poter effettuare una volta per tutte le correzioni e gli 
aggiustamenti del testo, evitando la serie di prove di stampa. 

Ready, Set, Go 3 permette di impartire comandi alla stampante direttamente nel 
linguaggio PostScript, potendo quindi generare effetti grafici del tutto particolari ed 
altamente scenografici. 

Ready, Set, Go 3 è completamente supportato da J. soft attraverso il servizio tecnico 
telefonico “Hot Line” in grado di fornire quotidianamente suggerimenti e consigli 
circa il suo utilizzo. 

Ready. Set, Go 3 è immediatamente disponibile presso tutti gli Apple Center. 


Ready, Set, Go 3 è un’esclusiva 

Letraset 



Viale Restelli 5 - 20124 Milano 
Tel. 02/6888228-683797/6880841/2/3 


Compilare e spedire in busta chiusa a: 
























UTILITY 


Aggiungendo questa pratica al vostro programma in Applesoft, 
otterrete comodi prospetti che elencano 
tutte le costanti, le variabili e i riferimenti alle linee. 

Cross Reference 


L’utility Cross Reference è uno de¬ 
gli strumenti più preziosi per la rea¬ 
lizzazione del software. Gli assem¬ 
bler come il Big Mac LC e il Mer¬ 
lin comprendono utility che stampa¬ 
no le variabili del programma e le li¬ 
nee nelle quali sono utilizzate. E' u- 
na gran cosa poter disporre di questa 
lista quando si arriva al momento 
del debugging. 

L'Applesoft Cross Reference fa 
più di quanto facciano le utility for¬ 
nite con gli assembler. Provvede in¬ 
fatti a indicare i numeri di linea, i 
nomi delle variabile, dei valori delle 
variabili e delle costanti, e li stampa 
in quattro diversi formati. Non avete 
che da aggiungere XREF (listato 

1) al vostro programma di destina¬ 
zione ed eseguirlo. Va detto che non 
è rapido; il Basic non è certo famoso 
come eccezionale velocista. 

Ma una modifica che elimini l'e¬ 
lenco delle costanti del programma 
accelererà notevolmente l’esecuzio¬ 
ne. 

Uso del programma 

Il metodo più comodo d'impiego 
di Applesoft Cross Reference consi¬ 
ste nel caricare in memoria il pro¬ 
gramma che volete analizzare e poi 
fare l’EXEC di DO.XREF (che vie¬ 
ne creato facendo girare il listato 

2) . Questo aggiunge automaticamen¬ 
te XREF alla fine del vostro pro¬ 
gramma, effettua un comando CLE- 
AR e comincia l'esecuzione di 
XREF con un comando GOTO 
63956. Assicuratevi che la vostra 
stampante sia inserita a dovere trami¬ 
te un’interfaccia nello slot 1 e che 
sia in linea. Sullo schermo compare 
anzitutto "FASE 1". 

Poi compare "FASE 2" con il 
messaggio "Sto analizzando..." ma¬ 
no a mano che ogni linea viene ela¬ 
borata. Infine, nella fase 3, ha inizio 
la stampa. 


Quattro prospetti 

La lista fornita da Cross Reference 
consta di quattro prospetti. 

Il primo è la mappa dei rinvìi dei 
numeri d'istruzione, che elenca tutti 
i numeri di linea che seguono istru¬ 
zioni THEN, GOTO e GOSUB, o i 
GOTO e i GOSUB usati nelle istru¬ 
zioni ON. 

Se il vostro programma ha un GO¬ 
TO a una linea che non esiste il nu¬ 
mero di linea compare all'inizio del¬ 
la mappa dei rinvìi, identificato co¬ 
me NON DEFINITO. 

XREF fa del suo meglio con gli 
errori di sintassi del vostro program¬ 
ma, ma non addossategli la colpa dei 
vostri errori. 

Il secondo prospetto è la mappa 
dei nomi delle variabile, che elenca 
tutti i numeri di linea che usano una 
variabile indicata. Notate che le va¬ 
riabili dimensionate sono indicate in 
coda da un segno di parentesi aperta 
((), e che le funzioni sono indicate 
da FN, seguito dal nome della fun¬ 
zione. 

Il terzo prospetto elenca tutti i nu¬ 
meri di linea che fanno riferimento a 
un LITERAL stringa contenuto nel 
programma. L’ultimo prospetto è la 
mappa dei rinvìi dei valori costanti, 
la quale elenca tutti i numeri di linea 
che usano una costante indicata. 

Questo può essere molto utile per¬ 
ché in Applesoft uno dei metodi di 
accelerazione dell'esecuzione del pro¬ 
gramma consiste nel definire le co¬ 
stanti frequentemente usate in varia¬ 
bili poste all'inizio del programma. 
Le costanti Applesoft sono imma¬ 
gazzinate all'interno del programma 
come stringhe ASCII e convertite al¬ 
l'esecuzione ogni volta che vengono 
incontrate. 

Introduzione dei programmi 

Per digitare XREF copiate il pro¬ 


gramma in Applesoft del listatol. 
Salvate il programma con il coman¬ 
do: 


S AVE XREF 


Poi copiate il breve programma in 
Applesoft MAKE.DO.XREF (lista¬ 
to 2) e salvatelo con il comando: 


SAVE MAKE.DO.XREF 


Questo programma crea in realtà 
un file di testo che si può eseguire 
con EXEC per aggiungere XREF a 
un altro programma in Basic ed effet¬ 
tuare poi l'XREF. Per un aiuto nel¬ 
l'introduzione dei listati di Applican¬ 
do leggete "Per chi comincia" in que¬ 
sto numero della rivista. 

Come si realizza 

Scrivendo XREF era necessario 
raggiungere due obiettivi. Il primo e- 
ra quello di tenere il più possibile ri¬ 
dotte le dimensioni del programma e 
di usare un minimo di numeri di li¬ 
nea. Nella fase di sviluppo e di de¬ 
bugging il programma era lungo 
164 linee. Usando i due punti per 
impaccare le linee il più vicino pos¬ 
sibile al limite di 255 caratteri, ed e- 
vitando dove possibile la duplicazio¬ 
ne della logica, il programma defini¬ 
tivo è stato ridotto di circa 700 byte 
a 44 linee. 

Il secondo e più importante obietti¬ 
vo era quello di ridurre al minimo il 
tempo occorrente perché la fase due 
raccogliesse le informazioni sui rin¬ 
vìi. I maggiori risparmi di tempo so¬ 
no stati ottenuti evitando i GOTO e 
i THEN che trasferiscono il control¬ 
lo a un numero di linea inferiore al 
numero di linea corrente, e riducendo 
al minimo il numero delle volte di 
effettuazione della garbage collection 
da parte del sistema. 

Per avere una dimostrazione delle 









Esempio 1. Logica preliminare di analisi per lo stadiol. 


170 I = FN XX(103):J = FN XX(I + 2): 
K = FN XX (I) 

180 IF NOT (K > 0 AND I < 32767 
AND J < 63956) THEN 250 
190 NS = NS + 1 
200 Y%(0,NS,0) - NS 
210 X$(NS) = STR$ (J) 

220 IF LEN (X$ (NS)) < > 5 THEN 

X$ (NS) = " " + X$ (NS) : GOTO 
220 

230 I = K:J = FN XX(I + 2):K = FN 
XX(I) 

240 GOTO 180 


Esempio 2. Logica di analisi per lo stadio 1. 

170 I = FN XX(103):J = FN XX(I + 2): 

K = FN XX (I) 

180 FOR L = 1 TO 0 STEP - 1 
190 NS = NS + 1 
200 Y% (0,NS,0) = NS 

210 X$(NS) = RIGHTS (" " + STRS 

(J) ,5) 

220 I = K:J = FN XX(I + 2):K = FN 
XX(I) 

230 L = K > 0 AND I < 32767 AND J 
< 63956 
240 NEXT 

] 


tecniche adottate si esamini la logica 
della fase 1 nel suo stadio di svilup¬ 
po (esempio 1). Nell'esempio 1 I 
è l'indirizzo della linea corrente, J è 
il numero di linea di quella linea e K 
è l'indirizzo della linea seguente. Lo 
scopo di Y% sarà spiegato più avan¬ 
ti. Scopo principale della fase 1 è 
quello di raccogliere in X$ tutti i nu¬ 
meri di linea del progrmma come 
stringhe giustificate a destra di lun¬ 
ghezza 5. La giustificazione a destra 
delle stringhe ha come conseguenza 
ultima l'ordinamento della lista nei 
risultati stampati. 

Questa logica presenta due proble¬ 
mi. In primo luogo la linea 220 può 
aumentare la necessità di una garba- 
ge collection automatica quando si 
provveda ai rinvìi per un vasto pro¬ 
gramma. In secondo luogo le linee 
220 e 240 fanno sì che l 1 Applesoft 
cominci dall’inizio del vostro pro¬ 
gramma e cerchi un numero di linea 
che in realtà è situato in XREF. 

Vediamo come si possano evitare 
entrambi questi problemi. Esaminia¬ 
mo la routine dell’esempio 2. La 
linea 210 aggiunge ancora una strin¬ 
ga alla memoria delle stringhe, ma 
non crea in questa buchi che aprano 
la via alla garbage collection, e in 
più ha il vantaggio di evitare un GO¬ 
TO a un numero di linea precedente. 
Le linee 180 e 230 producono gli 
stessi risultati delle linee 180 e 240 
dell'esempio 1, ma evitano un GO¬ 
TO a un numero di linea precedente. 
Quando si incontra il FOR 1*Apple¬ 
soft prende nota della locazione di 
memoria che punta all'istruzione che 
segue il FOR. Quando si incontra il 
NEXT a linea 240 (supposto che il 
loop FOR debba essere nuovamente 
eseguito) la routine toma indietro in 
loop a linea 180 quasi sull'istante, 
anziché cercare dall'inizio del pro¬ 
gramma un numero di linea. La logi¬ 
ca delle linee 180 e 240 viene utiliz¬ 
zata in tutto il corso del programma 
definitivo. 

Come funziona 

Nel listato 1 le linee 63958-63959 
sono la procedura di caricamento (fa¬ 
se 1). Le linee 63960-63989 sono la 
procedura di rinvio (fase 2). In so¬ 
stanza la fase 2 mette i nomi di va¬ 
riabile e le costanti del programma 
di destinazione nella matrice stringa 
X$. La matrice X$ contiene anche i 
numeri di linea che fanno riferimen¬ 
to ai vari elementi. La matrice Y% 


fornisce un indice alla matrice X$. 

Per accelerare l'esecuzione del pro¬ 
gramma abbiamo bisogno di ridurre 
al minimo la garbage collection. Per 
esempio, costruendo una voce per la 
variabile X$ in 1$ con l'aggiunta di 
caratteri uno dopo l'altro, mediante 
un procedimento della forma 1$ = 1$ 
+, si potrebbe creare un'enorme quan¬ 
tità di garbage collection che aumen¬ 
terebbe grandemente il tempo di ese¬ 
cuzione, perfino per il ProDOS con 
la sua garbage collectin molto effi¬ 
ciente. 

E’ quindi necessario uno schema 
che punti anzitutto alla linea che si 
sta analizzando (cioè si deve conosce¬ 
re il suo indirizzo iniziale). La varia¬ 
bile I fornisce questo puntatore ed è 
inizializzata sul contenuto delle loca¬ 
zioni 103 e 104 a pagina zero. In se¬ 
condo luogo occorre conoscere il nu¬ 
mero di linea e immagazzinarlo in J. 
Questo valore viene trovato aggiun¬ 
gendo due ale usando quell'indiriz¬ 
zo per leggere il numero di linea dai 
due byte di memoria ai quali punta. 
Terzo, occorre l'indirizzo iniziale del¬ 
la linea seguente, che viene imma¬ 
gazzinato in K. K consta di due byte 
ed è ricavato dal contenuto della loca¬ 
zione alla quale punta I. 

Una volta determinati questi para¬ 
metri la linea che si sta analizzando 
viene trasferita nella stringa J$. Per 


evitare la struttura J$ = J$+, che con¬ 
suma tempo e apre la via alla garba¬ 
ge collection, si guardi la logica di 
linea 63957: 


J$ = " ":S = FN XX(107) - 12 

Questa logica esige che si impie¬ 
ghi il comando CLEAR prima di av¬ 
viare XREF. XREF può gestire pro¬ 
grammi notevolmente ampi, ma ci 
sono limiti. E' possibile che il pro¬ 
gramma si fermi con un messaggio 
d’errore durante la fase 1 o la fase 2. 
Può darsi che qualche programma rie¬ 
sca a girare quando siano state appor¬ 
tate modifiche alle dimensioni delle 
variabili di matrice di XREF (linea 
63957). 

Le dimensioni sono state ideate 
per un programma medio, ma può 
darsi che il programma contenga una 
quantità eccessiva di un determinato 
tipo di voce di rinvio. Per aiutarvi a 
fare queste modifiche i valori delle 
variabili JX; LX, MX, NA, NL e 
NS sono stampati con il messaggio 
d'errore. 

Per esempio se si verifica un erro¬ 
re di Bad Subscript, indice non vali¬ 
do (numero 107), e NS=401 o 
LX=400 provate ad aumentare il va¬ 
lore della seconda dimensione della 
matrice Y%(). SeNL=1001 aumenta¬ 
te la dimensione della matrice X$Q. 
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Se NA è maggiore di 2000 aumenta¬ 
te la seconda dimensione di Y%(). 
Se nessuna di queste soluzioni fun¬ 
ziona o se il messaggio è Out of Me¬ 
mory, memoria esaurita (numero 
77), spezzate il vostro programma 
in due parti e fate un’esecuzione sepa¬ 
rata di XREF su ciascuna parte. Vo¬ 
lendo potete invece provare a toglie¬ 
re il rinvio per le costanti numeri¬ 
che, nel modo descritto nella sezione 
Modifiche. 

L'esecuzione di un programma con 
l’impiego di un GOTO non azzera la 
memoria delle variabili come accade 
quando si impiegano RUN o LO- 
AD. In questa logica viene creata u- 
na nuova variabile denominata J$. 
Dopo la sua creazione le locazioni 
107 e 108 a pagina zero puntano al¬ 
la fine della memoria delle variabili. 
Sottraendo 12 dal contenuto di que¬ 
ste due locazioni, S punta ora al 
byte della lunghezza di stringa nella 
definizione di J$. Dopo i tre POKE 
di linea 63960 J$ contiene la linea 
che si sta analizzando. Il contenuto 
di I e di K fornisce la lunghezza del¬ 
la stringa, e I fornisce il suo indiriz¬ 
zo. In questo procedimento non vie¬ 
ne usata memoria di stringa perché 
quando J$ è stata inizialmente creata 
la sua definizione indicava una lun¬ 
ghezza di uno e puntava alla stringa 
hteral dopo il segno di uguale. 

Quando J$ è uguale alla linea che 
si sta analizzando può avere inizio il 
procedimento di analisi. La variabile 
N punta alla posizione corrente di 
J$, L rappresenta la lunghezza di J$, 
GT è un flag usato per l’elaborazio¬ 
ne del token di ON e X è il valore 
numerico del byte in corso di anali¬ 
si. Dopo un passaggio attraverso 
un'operazione di analisi all’interno di 
una linea, Y contiene la quantità del¬ 
la quale N si trova avanzata in prepa¬ 
razione della successiva analisi. Z è 
un irtdice che solitamente comincia 
a Z=N, ed è impiegato per trovare la 
fine di un elemento da utilizzare per 
aggiornare le varie matrici. MX con¬ 
trolla la raccolta di numeri di istru¬ 
zione (MX=0), variabili (MX=1), 
stringhe (MX=2) e costanti (MX=3). 

L'analisi di linea viene terminata 
da una di queste due condizioni: vie¬ 
ne trovata la fine della linea (vale a 
dire N raggiunge L) o viene trovato 
un token di REM. Partendo dall’ini¬ 
zio della linea l'analisi procede nel¬ 
l'ordine seguente. Se viene trovato 
l'inizio di una stringa, che è segnala¬ 
to dal carattere di virgolette (”), Z è 


messo a N+l (linea 63961) e poi in¬ 
crementato fino a quando si trova un 
altro segno di virgolette o la fine del¬ 
la linea. La differenza fra Z e N è Y, 
che è la lunghezza della stringa che 
comprende il carattere di virgolette. 

Il passo successivo consiste nel 
mettere 1$ uguale a quella stringa ed 
evitare la sindrome 1$ = 1$ +. A que¬ 
sto scopo, a linea 63957, si è usato 
per stabilire 1$ la stessa procedura u- 
sata per J$. I POKE a linea 63961 
hanno come conseguenza che la defi¬ 
nizione di 1$ punta alla stringa del 
vostro programma. Anche in questo 
caso non viene usata la memoria del¬ 
le stringhe, ed è così ridotta al mini¬ 
mo la garbage collection. Il flusso 
del programma procede andando alla 
fase di raccolta dei rinvìi, con inizio 
alla linea 63979. 

Se viene trovato il token di FN la 
linea 63962 raccoglie un rinvio di 
funzione. Per esempio se il nome 
della funzione è XX allora in 1$ vie¬ 
ne immagazzinato FN XX per l'im¬ 
piego nell'elaborazione dei rinvìi, 
con inizio a linea 63979. Per tenere 
XREF il più breve possibile si è u- 
sata l'istruzione 1$ = "FN" +. La gar¬ 
bage collection dovrebbe essere mini¬ 
ma o inesistente in quanto la mag¬ 
gior parte dei programmi usa rara¬ 
mente FN o non l’usa affatto. 

Se viene trovato un carattere alfa¬ 
betico le linee 63964-63965 raccol¬ 
gono il nome della variabile in 1$ u- 
sando la tecnica standard per evitare 
la memoria delle stringhe. Il proces¬ 
so di raccolta continua fintanto che 
si trovano lettere, numeri, il segno 
di percentuale (%) o il segno di dolla¬ 
ro ($). Si noti l’istruzione Z = Z + 
(X=40) a linea 63965. Essa evita 
un'istruzione IF e aggiunge un seno 
di parentesi aperta se la variabile rap¬ 
presenta una matrice. Una volta che 
il nome della variabile è stato raccol¬ 
to in 1$ il controllo passa all'elabora¬ 
zione dei rinvìi a linea 63979. 

Poi le linee 63966-63970 control¬ 
lano se ci sia un numero d'istruzione 
dopo un GOTO, THEN o GOSUB. 
Il numero d'istruzione viene raccolto 
in 1$ usando la tecnica standard per e- 
vitare la memoria delle stringhe. La 
logica: 


1$ = RIGHT$(" ”+I$,5) 


apre la via alla garbage collection, 
ma è indispensabile per listare i nu¬ 
meri d'istruzione in ordine ascenden¬ 
te nella lista dei rinvii. Infine viene 


fatto un controllo per vedere se ci 
sia una costante che inizi con una ci¬ 
fra (0-9). 

Se non si trova una costante il 
byte corrente della linea non richiede 
la raccolta di rinvii, e il controllo 
passa alla linea 63989. 

La raccolta delle costanti deve te¬ 
ner conto di tre casi: numeri interi, 
numeri reali e numeri reali che usa¬ 
no la notazione scientifica. I primi 
due casi sono semplici, e le costanti 
possono essere raccolte in 1$ senza 
preoccupazioni di garbage collec¬ 
tion. La notazione scientifica aumen¬ 
ta notevolmente la possibilità di gar¬ 
ba ge collection, perché può darsi che 
la E della notazione scientifica sia se¬ 
guita da un segno di più o di meno. 
Mentre la E è immagazzinata sotto 
forma di ASCII il segno di più o di 
meno è immagazzinato sotto forma 
di token. 

Come si è visto per il caso della 
raccolta dei numeri di linea, la garba¬ 
ge collection non può essere evitata 
a linea 63969, dato che vogliamo 
che le costanti siano listate in ordine 
ascendente nella lista dei rinvii. 

Le linee 63979-63988 aggiornano 
le informazioni sui rinvii. Le linee 
63979-63982 usano la stringa in 1$ 
per svolgere una ricerca binaria attra¬ 
verso le stringhe esistenti immagaz¬ 
zinate in X$. La linea 63982 potreb¬ 
be essere un semplice GOTO a una 
linea 63979 modificata priva delle 
prime due istruzioni. Facendo qual¬ 
che test di questa logica si è visto 
che solitamente la linea 63982 cadrà 
alla linea seguente. Lo scopo princi¬ 
pale della ripetizione della logica a li¬ 
nea 63982 è quello di ridurre al mini¬ 
mo il numero delle volte che il con¬ 
trollo viene passato alla linea 
63980. 

La linea 63982 cerca nella matrice 
X$ la stringa immagazzinata in 1$ o 
la locazione nella quale dovrebbe es¬ 
sere immagazzinata. Si tratta di una 
ricerca indiretta tramite un lista dei 
puntatori in Y%. Questo schema in¬ 
diretto serve anche a evitare la neces¬ 
sità di ordinare la matrice X$, con la 
conseguenza di una garbage collec¬ 
tion potenzialmente eccessiva. Infi¬ 
ne se la stringa in 1$ non viene tro¬ 
vata, viene inserita nella sua giusta 
posizione di ordinamento, e il nume¬ 
ro dell’istruzione che si sta analizzan¬ 
do viene aggiunto alla catena dei rin¬ 
vii per quella stringa in X%. 

A linea 63978 si ha la dimostrazio¬ 
ne di un'ingegnosa idea attuata nel 
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Computer Line - V.le S. Lavagnini 20. Computer Shop O - Via V. Emanuele II 66/R. Soluzioni E.D.P. DA - C.so dei Tintori 39/R. Tutto Computer - Via 
Panzani 36/38R. Empoli: Livinform Empoli O - Via Verdi 82. C.D.S - Via Mazzini 5. Arezzo: Sisted - Via L Galvani 22 - P.zza Risorgimento 10. Grosseto: 
Livinform Grosseto - Via Pepe 18. Livorno: Livinform OD - Via Roma 8 - Scali delle Cantine 62. Lucca: Logos Informatica O - V.le S. Concordio 537. 
Fornaci di Barga: Logos Informatica - O V.le Repubblica 271 - Forte dei Marmi: Blu Data - Via Morin 95 - Pisa: Data Port 2 D - Via Sancasciani 35. 
Pontedera: Data Port A - Via Brigate Partigiane 27. Borgo a Buggiano: CO-DI - Via XXIV Maggio 117/119. Montecatini Terme: CO-DI - Via N. Sauro 38. 
MARCHE - Ancona: Sisteda Ufficio OD - Via Velino 16-18 - Torrette. Ascoli Piceno: Rinascita Informatica - C.so Trento e Trieste 17. Macerata: M.E.D. 
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UMBRIA - Perugia: Key For - Via Sicilia 21 . Foligno: Linea Informatica O - Via Garibaldi 81 . Cerbara: Computer Post - Via Madonna del Vento. 
LAZIO - Roma: AG Computer Systems O - Via G. Lanza 101 . Bit Computers - O V.le Ionio 333 - O Via Nemorense 14 - OD Via Tuscolana 350 - O Via 
Satolli 55-0 Via Tiberio Imperatore 72 - DA Via C. Perrier 4. Computer Center Holding - Via Nizza 48 - Via Soana 24 - Via Majorana 149 - Via Prati 
Fiscali 257 - Via Terni 86. Computerworld - Via del Traforo 136. Computime D - V.le Paridi 25 - Via Cola di Rienzo 28. Cosmic D - Via Viggiano 70 - Via 
Vespasiano 56/B. Easy Byte O - V.le dell’Oceano Pacifico 66. F.B.M. A - Via Flaminia 395. Ostia: A.C.S. ADV Computer System - Via Cansacchi 10. 
Cosmic - Via delle Gondole 168 - Ostia Lido . Latina: Easy Byte Latina D - V.le XVIII Dicembre 44. 

ABRUZZO - Pescara: O.C.S.A. - V.le Marconi 361. Ormi Computers - Via Ravenna 69 - Via C. Goldoni 5. Chieti Scalo: Computer - V.le Unità d’Italia 5/C. 
Sambuceto: ORMI Computers - Via Salara . Vasto: O.C.S.A. - S.S. Adriatica - C.so Quadrifoglio. 

MOLISE - Campobasso: Informatica Molisana - Via B. Buozzi 12. Termoli: Informatica Molisana - Via Martiri della Resistenza 88. Isernia: S.I.E.S. - Via 
Risorgimento 180. 

CAMPANIA - Napoli: Carlo La Barbera OD - Via Toledo 320. CED - Via Scarlatti 153. Golden Computer A - Via Michelangelo 7.1.C. Internai Computer - 
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dell’Autostazione 16 . Vibo Valentia: Tecnocomp -Via Affaccio 8. 

SICILIA - Palermo: Informatica Commerciale ODA - Via Notarbartolo 26. Catania: Centro Informatica A - Via Firenze 211-0 P.zza Lanza 16. SI.EL. 
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SARDEGNA - Cagliari: INF.TEL - Via Pergolesi 28/A. S.I.I. D - Via S. Lucifero 85. Nuoro: SAR.EL - Via Manzoni 12. Alghero: System’s Room - P.zza 
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programma. Dato che i numeri di li¬ 
nea vanno da 0 a 63999 la prima in¬ 
clinazione è quella di fare della lista 
indiretta dei puntatori una matrice re¬ 
ale, Y, invece della matrice intera 
Y%. Tuttavia così facendo si aumen¬ 
tano grandemente le esigenze di me¬ 
moria per XREF. La logica della for¬ 
ma J - 65536*(J>32767) permette di 
immagazzinare i numeri interi della 
fascia che va da 0 a 65535 in una va¬ 
riabile o matrice intera. 

La linea 63989 conclude l'analisi 
per una linea e prosegue la fase 2 o 
comincia la fase 3. Il resto del pro¬ 
gramma riguarda la stampa. 

Modifiche 

Il programma è congegnato per u- 
na stampante impostata su 10 carat¬ 
teri al pollice e riga di 80 colonne. 
Per cambiare l'impostazione a 16.5 
caratteri al pollice sostituite 16 al va¬ 
lore 8 a linea 63997. 

Se volete visualizzare sullo scher¬ 
mo i prospetti dei rinvìi dovrete mo¬ 
dificare la larghezza del display in 
quella descritta sopra. Basta cambia¬ 



re il PR#1 di linea 63989 in PR#0, 
o togliere le istruzioni PRINT com¬ 
prendenti PR# nelle linee 63989 e 
63991. Quest'ultima modifica è tas¬ 
sativa per il e con la scheda a 80 co¬ 
lonne. Il CHR$(12) a linea 63989 
pulisce lo schermo prima della visua¬ 
lizzazione di ciascun prospetto. Se 
volete lo potete eliminare. 

Potete accelerare alquanto XREF 
togliendo la caratteristica riguardante 
i rinvìi delle costanti del program¬ 
ma. Questa rettifica ha un solo difet¬ 
to: se usate la notazione scientifica 
con una E in una costante, la E com¬ 
pare nel prospetto come variabile. 

Per togliere la caratteristica dei rin¬ 
vìi delle costanti apportate le seguen¬ 
ti modifiche: 

1. Eliminate le linee 63971- 
63978. 

2. Nelle linee 63967 e 63969 cam¬ 
biate 63971 in 63989. 

3. Nella linea 63989 cambiate l’i¬ 
struzione FOR MX = 0 TO 3 in 
FOR MX = 0 TO 2. 

Questarettificado vrebbe accelerare 
l'esecuzione del programma, e quel 
che più importa libera spazio in me- 


ATTENZIONE! 

I listati sono 
pubblicati alla 
pagina 116 


moria di modo che si può provvede¬ 
re ai rinvìi di programmi più estesi. 

Una breve nota sul modo in cui 
funziona il file EXEC: dopo che ave¬ 
te caricato il vostro programma, le 
locazioni 105 e 106 di pagina zero 
puntano a un indirizzo situato appe¬ 
na dopo la fine del vostro program¬ 
ma. Questo indirizzo ha qualche pro¬ 
blema in DOS 3.3 quando provate i 
comandi FP e NEW. 

Le linee 120 e 130 assicurano che 
qualunque sia il sistema che state u- 
sando, la fusione di XREF con il vo¬ 
stro programma abbia come risulta¬ 
to un programma completo. 

^ Questo programma è disponibile ^ 
su dischetto. L’elenco, i prezzi 
e le modalità d’ordine di questo 
e degli altri dischetti disponibili 
sono riportati nella rubrica 
t Disk Service. 
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...dopo Util, Pro e Basic, la serie Writer continua.. 


ProfeSSional Writer 


EL NUOVO INTEGRATIVO DI APPLE WRITER // IN PRODOS PER APPLE Ile, Ile. 


ProfeSSional Writer offre agli utenti di Apple Writer // Prodos un ampliamento indispensabile per un utilizzo professionale 
del sistema di elaborazione testi. E’ la versione unificata in Prodos di Basic Writer // e Pro Writer //, ancora più potente e 
flessibile, indispensabile per l’archiviazione dei dati su Unidisk e Profile. 

^Troncamento automatico delle parole a fine riga, é Caricamento in memoria fino a 10 set di caratteri alternativi (gotico, 
corsivo, ecc.) ftStampa Proporzionale con le stampanti ad aghi Apple ^Stampa su carta bollata ^Suddivisione della 
memoria testo fino a tre parti di 16000 caratteri ciascuna, ognuna indipendente ma comunicante con le altre é Collegamento 
all’ambiente Basic tramite semplici comandi éFino a 32K di memoria libera per programmi Basic in Prodos legati ad Apple 
Writer é Collegamento all'archivio di Apple Works per circolari e indirizzari # Programma "Super-calcolatrice”, per calcolare 
lavorando contemporaneamente al testo è Funzione di glossario automatico ^Funzione di compattamento video ^Funzione 
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Quest'anno è stato il turno di Pisa che per tre giorni ha ospitato 
la terza edizione dell'annuale convegno dell'Apple University Consortium 
europeo: oltre 500 fra professori e ricercvatori delle più affermate 
università europee hanno scambiato ricerche, esperienze e prodotti 
con l'utilizzo del personal computer nella didattica. 

Scuola ad alta 
tecnologia 


Oltre il 60% delle scuole elementa¬ 
ri, medie e superiori degli Stati Uni¬ 
ti adottano personal computer Ap¬ 
ple. In Italia la percentuale non è la 
stessa ma anche qui si possono con¬ 
tare oltre 1.500 istituti scolastici 
che fanno dei personal computer del¬ 
la mela uno strumento didattico. Ol¬ 
tre 200 sono invece le università che 
fanno parte dell'Apple University 
Consortium, un'associazione nata 
nel 1983 per volere della Apple, tesa 
allo scambio di informazioni e di e- 
sperienze sull'uso avanzato delle tec¬ 
nologie di elaborazione personale. 
Sono numeri che dimostrano l’attivo 
impegno della Apple nel settore Edu- 
cation, obiettivo mai nascosto dalla 
casa della mela. Quest'anno è stato 
il turno di Pisa che per tre giorni ha 
ospitato oltre 500 professori e ricer¬ 


catori delle più avanzate università 
europee per l'annuale incontro, giun¬ 
to alla terza edizione, dell'Apple Uni¬ 
versity Consortium europeo. Obietti¬ 
vo comune l'utilizzazione della infor¬ 
matica individuale come ausilio di¬ 
dattico nelle più diverse discipline di 
studio. 

In 25 seminari e in 10 sessioni 
plenarie professori e ricercatori han¬ 
no espresso esperienze e ricerche nel¬ 
la didattica con il personal compu¬ 
ter. Applicando ha scelto cinque in¬ 
terventi fra i più significativi del 
convegno. 

Ripensare col computer 

"Nell'informatica ripensare non è 
raro. Ed è l'evoluzione tecnologica 
che forza queste continue correzioni 


all'hardware, al software ma soprat¬ 
tutto all'individuo." E' l'analisi del 
professor Giovanni Degli Antoni, di¬ 
rettore dalla facoltà di scienze dell'in¬ 
formazione dell'Università di Mila¬ 
no, che vede sotto il punto di vista 
didattico un'evoluzione del mondo e 
dei modi dell'informatica individua¬ 
le. Da una parte gli studenti che svi¬ 
luppano software e database divente¬ 
ranno la vera manodopera dell'univer¬ 
sità e contribuiranno allo sviluppo 
della stessa; dall'altra, i professori do¬ 
vranno cambiare ruolo: in uno scena¬ 
rio di insegnamento assistito dal 
computer il docente diventerà l'auto¬ 
re del materiale e il manager della co¬ 
municazione. Secondo Degli Antoni 
il problema è che, almeno in Italia, 
la computerizzazione di tutti i livelli 
di istruzione dovrebbe essere più ra¬ 
pida e soprattutto più omogenea. Il 
fatto che alcune scuole abbiano il 
computer ed altre no porta a una situ- 
zione in cui l'elaboratore diventa un 
oggetto da studiare quando invece do¬ 
vrebbe essere lo strumento da usare 
per studiare. 

Facilitazioni e psicologia 

Due, in particolare, gli aspetti 
principali del problema legato all'al¬ 
fabetizzazione informatica in ambito 
universitario: l'innovazione strumen¬ 
tale e ravvicinamento all'uso degli e- 
laboratori. Per risolverli il professor 
Ruberti, rettore dell'Università La 
Sapienza di Roma ha realizzato un 
progetto battezzato Pecos che da una 
parte garantisce determinate agevola¬ 
zioni nell'acquisizione di personal 
computer, dall'altra cerca di attutire e- 
ventuali scontri mentali con le nuo- 
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ve tecnologie. Così, mentre veniva¬ 
no realizzati accordi particolari in ter¬ 
mini di costi e di rateizzazioni con i 
principali produttori di personal com¬ 
puter, Apple, Digital e Olivetti in te¬ 
sta, sono stati studiati tre tipi di se¬ 
minari. Innanzitutto un primo avvi¬ 
cinamento ai concetti generali dell'in- 
formatica, per poi passare a insegna- 
menti più pratici tesi a sfociare in 
un collegamento con i centri di ricer¬ 
ca. Per garantire un corretto metodo 
di insegnamento i seminari sono sta¬ 
ti affiancati dall'intervento di pedago¬ 
ghi e psicologi che, oltre a cercare di 
evitare i modi errati nel trattamento 
della disciplinafhanno rilevato un in¬ 
teresse crescente da parte dei docenti 
sull'uso del calcolatore. 


L’enciclopedia diventa 
elettronica 

600 Megabyte in 12 pollici. I CD¬ 
ROM (Compact Disc Read Only 
Memory) rappresentano senza dub¬ 
bio le memorie del futuro anche per 
i personal computer. In questo caso 
il made in Italy è arrivato primo. An¬ 
nalisa Borgia ha spiegato come un 
gruppo di studenti dell'Università di 
Milano con la supervisione del pro¬ 
fessor Giovanni Degli Antoni, ha 
portato su CD-ROM una serie di in¬ 
formazioni composte da testi, imma¬ 
gini e suoni. 

L'Enciclopedia Elettronica, così è 
stato battezzato il progetto, può esse¬ 
re letta e manipolata da un Macinto¬ 


sh attingendo le informazioni dal 
CD-ROM. L'indice è stato l’ostaco¬ 
lo più difficile da superare: un utente 
non può aspettare troppo tempo per 
ottenere le informazioni. Il proble¬ 
ma è stato risolto con due program¬ 
mi: TextMapper e ImageLink. Il pri¬ 
mo crea un indice di tutto il testo in 
modo che ogni parola viene conside¬ 
rata come parola chiave per l'accesso 
al CD-ROM. Una soluzione diffici¬ 
le, basti pensare al tempo impiegato 
per la realizzazione di un indice di 
600 Megabyte. Il secondo, Image¬ 
Link, permette invece di associare a 
ogni immagine fino a cinque parole 
chiave. L'ambiente operativo è basa¬ 
to su un sistema multiwindow 
in cui ciascuna entità (immagine, pa- 


Prodotti 

Oltre 100 pacchetti applicativi inediti o di recentissimo completamento di origine universitaria distribuiti 
tra gli atenei associati. Apple University Consortium è anche questo, non solo seminari e conferenze ma an¬ 
che soluzioni. Per questo un'area del Palazzo dei Congressi dell'Università di Pisa è stata dedicata a un'esposi¬ 
zione dei prodotti delle università stesse e delle terze parti ovviamente dedicati al settore education. 

Ecco una veloce panoramica sulle applicazioni più significative: 

• Interface Builder. Negli Stati Uniti è distribuito dalla ExperTelligence. Si tratta di un pacchetto che 
unisce le prestazioni di un potente resource editor alla versatilità di un ambiente visivo di programmazione. 
Utilizzando Interface Builder, scritto in ExperLisp, si possono sviluppare in poche ore due terzi di un qualsia¬ 
si nuovo package per Macintosh. ExperTelligence, 559 San Ysidro rd., Santa Barbara, CA 93108, tei. 805- 
969-7874. 

• V.I.P. Visual Interactive Programming, uno dei primi ambienti completamente grafici di pro¬ 
grammazione per oggetti (object oriented programming) dove le tradizionali istruzioni sono scritte diretta- 
mente dentro flow-chart grafici. Emday, 34 avenue Tervueren, box 45, B1040 Brussels, Belgium, tei. 2-734- 
8912. 

• MacNix. La List di Pisa ha presentato un'ulteriore estensione di MacNix, uno dei primi pacchetti in 
grado di lavorare in ambiente Unix con Macintosh. La novità di rilievo della nuova release è la possibilità di 
collegare reti di Macintosh in AppleTalk e in ambiente Unix con reti Ethernet. List, piazza Mazzini 6, Pisa, 
telefono 050/44023. 

• Cabri (CAhier de BRouillon Informatisé). Nato da un progetto nazionale dedicato allo studio della grafi¬ 
ca, Cabri è un potente programma interattivo per editare i grafici come su un quaderno di brutta. Sviluppato 
dal Laboratoire Structures Discrètes, Imag-Bp 68, S.Martin d'Hères Cedex, France, tei. 76514616. 

• Coco. Per compilare un programma ci vuole un compilatore e per generare un compilatore è nato Co- 
co, primo pacchetto sviluppato a questo scopo per personal computer. Universitat Linz, Inst. fur Informatik, 
Altenbergerstr. 69, A - 4(M0 Linz, Austria. 

• TexPreview. Permette una visualizzazione su Macintosh delle pagine realizzate con il programma di 
fotocomposizione Tex usato per lungo tempo su minicomputer e mainframe dalle tipografie. Con TexPre¬ 
view è possibile visualizzare, zoomare, saltare ad altre pagine del documento su Macintosh per poi poterle 
stampare su ImageWriter o LaserWriter. Altra caratteristica, con un semplice comando è possibile trasforma¬ 
re un normale testo con i caratteri Braille per i non vedenti. SARA (Amsterdam Universities Computing 
Centre), PostBox 4613, 1009 AP Amsterdam - Netherlands. Telefono 020-5923000. 

• Musica. Diversi i pacchetti sviluppati dal Laboratorio di Informatica Musicale, dipartimento dell'Uni¬ 
versità di Milano, in grado di comporre e suonare musica con Macintosh. Interressanti le applicazioni in rete 
Petri e i numerosi interfacciamenti Midi. L.I.M., via Moretto da Brescia 9, Milano, telefono 02/2772215. 

• Chime. Sistema di input grafico legato ai processi della chimica. L'uso del pacchetto permette l'inseri- 
mento dei dati di input attraverso un'interfaccia grafica interattiva dotata di un controllo di correttezza logica 
dei valori. University of thè Negev, Israel. 

• Freesoftware didattico. Tutte le Università mettono a disposizione le proprie biblioteche di pro¬ 
grammi per scopi didattici. Per meglio organizzare questo scambio di informazioni è nato Kinko's Catalo- 
gue, una collezione dei programmi più significativi sviluppati dalle università che fanno parte dell’AUC. Per 
ulteriori informazioni è possibile rivolgersi direttamente sàia Apple Italia, via Rivoltana 8, Segrate (MI). 
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ragrafo eccetera) è indipendente dal¬ 
l'altra. E’ così possibile cercare paro¬ 
le contenute in tutto il testo memo¬ 
rizzato sul CD-ROM; cercare testo 
scritto da uno o più specifici autori; 
cercare immagini, attraverso una se¬ 
rie di parole chiave, e ottenere i testi 
relativi; ottenere animazioni che ac¬ 
compagnano l'apprendimento del te¬ 
sto; avere documenti con commenti 
di voce umana sintetizzati o digitaliz¬ 
zati; accedere a un glossario; consul¬ 
tare l'indice principale del CD¬ 
ROM; consultare tutti gli accessi 
possibili del database; inserire note 
o commenti nel testo che si sta leg¬ 
gendo. 

Per ulteriori informazioni è possi¬ 
bile rivolgersi alla Media Group, via 
Bessarione 29, Milano, telefono 
02/5397575. 

Un database per imparare 

"Mettete un bimbo in un recinto 
di sabbia e lasciategli fare quello che 
vuole. Solo così potrà esprimere la 
propria creatività: costruendo castel¬ 
li, facendo formine, e qualsiasi altra 
cosa abbia a disposizione." 

Il recinto però è elettronico, e i 
giocattoli a disposizione sono spread¬ 
sheet e database. E' la strada seguita 
da Jorge De Suosa Pires, dell'Univer¬ 
sità di Uppsala, in Svezia, sostenito¬ 
re di un'interessante metodologia di 
insegnamento. 

"Quando è troppo presto, o troppo 
tardi, o meglio, quando non serve 
imparare la programmazione", spie¬ 
ga De Sousa Piras," non significa 
che non si sappia usare un personal 
computer, anzi. Oramai gli strumen¬ 
ti sviluppati per queste macchine per¬ 
mettono di ottenere qualsiasi risulta¬ 
to senza conoscere un input di Basic 
o di altri linguaggi. Non voglio pe¬ 
rò dire basta ai programmatori: ricor¬ 
diamoci che alla base degli applicati¬ 
vi ci sono loro, in molti casi però 
non serve". 

E l'esempio portato al terzo conve¬ 
gno europeo dell'AUC ha dimostrato 
questa teoria: gli elementi sono un 
Macintosh e un database con i quali 
una classe di bambini di 10 anni 
èstata introdotta all'elaboratore perso¬ 
nale studiando la geografia. Al mo¬ 
mento della creazione dei campi del 
database gli studenti incontrano subi¬ 
to il problema: quali inserire? Cos'è 
più importante, la densità o la reli¬ 
gione di quel paese? O entrambi? In- 
somma, già dall'inizio si discute di 


geografia, non di informatica. Il per¬ 
sonal computer non è il soggetto 
ma l'oggetto o, meglio, lo strumen¬ 
to. La seconda fase, l'inserimento, ri¬ 
sulta come un gioco: la ricerca sull'a¬ 
tlante e sui libri delle capitali, delle 
caratteristiche politiche ed economi¬ 
che di quel dato paese vengono fatte 
con entusiasmo, per completare il re¬ 
cord di quello stato. 

Infine, introdotti i dati, la gestione 
degli stessi. Le ricerche, anche multi¬ 
ple, per evidenziare i paesi più o me¬ 
no industrializzati, di una certa reli¬ 
gione e di un certo governo politico. 
E, ancora, si discute, quali caratteri¬ 
stiche abbinare per formare dei grup¬ 
pi più o meno omogenei di diversi 
paesi. Più o meno lo stesso discorso 
vale per i sort: ordinare i paesi per 
densità, per popolazione, per superfi¬ 
cie o per che cosa? 

Anche Applicando ha riflettuto su 
questo esperimento e ha trovato altre 
innumerorevoli aperture: per esem¬ 
pio, quando questo file verrà stampa¬ 
to il bambino dovrà decidere se stam¬ 
parlo in Times, piuttosto che in Hel- 
vetica, in corpo 9 tondo piuttosto 
che in corpo 10 neretto; senza accor¬ 
gersene il bambino impara che esi¬ 
stono diversi corpi e caratteri. Anco¬ 
ra, comunicare con il telefono ci 
sembra cosa naturale, fin da piccoli 
ci hanno insegnato a imparare a me¬ 
moria il numero di casa. E perché 
non insegnare con la stessa normali¬ 
tà che esistono altri mezzi di comu¬ 
nicazione, che due persone possono 
parlare anche attraverso una specie di 
macchina per scrivere, o una specie 
di fotocopiatrice e, non ultimo, un 
personal computer? 

Il progetto Metropolis 

17 milioni di abitanti, 4 nella sola 
Caracas, un'economia principalmen¬ 
te basata sull'esportazione petrolife¬ 
ra, un governo stabile da tre decenni 
(cosa non da poco se si considera la 
zona calda) e, come sport nazionale, 
il baseball. 

Un profilo tracciato a grandi linee 
del Venezuela, paese sudamericano 
che rappresenta, forse, l'esempio più 
incisivo dell'Apple University Con- 
sortium. 

Si tratta dell'Università Metropoli- 
tana del Venezuela, un ente privato 
che può contare su un massimo di 
4.000 studenti che hanno dovuto pas¬ 
sare un esame di ammissione molto 
rigoroso per l'alto numero di doman¬ 



de che ogni anno vengono presentate 
al rettore. Tre le facoltà: Ingegneria, 
divisa in cinque scuole. Scienze e Ar¬ 
te, divisa in tre scuole, e Manage¬ 
ment, divisa in due scuole. 

Dei 4.000 studenti iscritti, l’80% 
possiede un Macintosh proprio, che 
tiene a casa, e le strutture dell'istitu¬ 
to hanno a disposizione altre 150 
macchine. 

L'artefice di questa rivoluzione è il 
professor Johnny Benacerraf, 42 an¬ 
ni, laureato in Svizzera in Ingegne¬ 
ria Elettronica, che nel 1985 ha dato 
vita al progetto Metropolis. 

"All'inizio sono stato criticato per 
la scelta caduta sulle macchine di Cu- 
pertino", racconta il Prof. Benacer¬ 
raf, "il Macintosh era considerato po¬ 
co più di un giocattolo. Poi tutti si 
sono dovuti ricredere, tant'è che in 
qualche caso si è verificato un pro¬ 
cesso inverso alle normali istituzio¬ 
ni: il mondo del lavoro si è converti¬ 
to al Macintosh visti i risultati e le 
soluzioni ottenute dai ragazzi che e- 
scono dalla nostra scuola." 

Il primo scopo del progetto Metro- 
polis è stato dunque pienamente rag¬ 
giunto, grazie anche ad agevolazioni 
e crediti finanziari. 

"Importante era" spiega Benacer- 
ref, "che il progetto si divulgasse an¬ 
che socialmente, senza una restrizio¬ 
ne nelle mura scolastiche." 

L'altro obiettivo, quello pratico, 
verso il quale è orientata l'informatiz- 
zazione dell'Università Metropolita¬ 
na, è quello di insegnare allo studen¬ 
te non a usare il computer ma a farsi 
forte di uno strumento in grado di ri¬ 
solvere i problemi nel campo specifi¬ 
co scelto. 

Questo, se dalla parte dello studen¬ 
te può essere accettato con un certo 
entusiasmo, dalla parte del professo¬ 
re rivoluziona un modo di insegnare. 

"E' vero", ammette Benacerraf, "in¬ 
fatti prima di corniciare i corsi con 
gli studenti abbiamo dovuto prepara¬ 
re e istruire gli insegnanti in questa 
nuova ottica. 

Ma anche questo problema è stato 
superato: chiunque abbia avuto a che 
fare con Macintosh si rende conto 
dell’utilità di questo strumento". 

E a forza di fare corsi, lUniversità 
Metropolitana del Venezuela ha aper¬ 
to delle sessioni dedicate al pubbli¬ 
co: ormai era troppo forte la richie¬ 
sta da parte dei familiari degli studen¬ 
ti che avevano introdotto in casa la 
piccola mela californiana. 

Mario Magnani 
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applicando 


Ecco un elenco dei computer shop presso i quali è possibile 
abbonarsi ad Applicando, acquistare una copia, cercare un numero arretrato. 


VALLE.D'AOSTA 

Aosta: Informatique sas, Av. Conseil 
des Commis 14 - Quart (AO): Infor- 
matique 2, Reg. America 31. 

PIEMONTE 

Alba (CN): Centro computer. Via Pa¬ 
trizza 2 - Alessandria: Sistemi Bit, 
Via Ghilini 27- Asti: Gestione Dati 
srl, Via B.Buozzi 45 - Biella (VC): 
Consul Computer srl, Via delle Rose 
2; Informatica Biella sas. Piazza S.Pao- 
lo 1/b - Borgomanero (NO): All 
Computer, Corso Garibaldi 106 - Cu¬ 
neo: Thema Inform.Distribuita sas. 
Via Statuto 10 -Domodossola (NO): 
Nuova Elettronica, Via Giovanni 
XXm 68 - Novara: D.R. srl, Viale 
XX Settembre 19; D.R. sri. Via Mole¬ 
rà 3; SPA srl, Via A. Canobbio 16/A - 
Pinerolo (TO): Elaborazione Dati 
Pinerolo, Viale Montebello 6 - Tori¬ 
no: A.B.Computer sas, Corso Grosse¬ 
to 209; Bellucci Benedetto, Via Papari¬ 
no 23; CominforSistemi sas, CorsoTe- 
lesio 4/B; Digitalsync snc, Corso Mo- 
ncalieri 303; Dimensione Personal, 
Via Bertola 22/e; GE.NE.CA srl, Via 
XX Settembre 51; Hobby Elettronica, 
Via Saluzzo 11/F-G-H; Omicron Com- 
puters snc. Corso Duca degli Abruzzi 
14; Pinto G.Componenti elettronici. 
Corso Principe Eugenio 15bis; Softec 
Computer sn, Via Juvara 24; Tecno- 
system computer shop. Corso Francia 
12; Tekno Computers srl, Via Mada¬ 
ma Cristina 31/c. 

LIGURIA 

Genova: Computer Center, Via S.Vin- 
cenzo 129r, Sals Informatica spa, Via 
D'Annunzio 2 e Viale B.Partigiane 
132r - Genova Sampierdarena: 
Computer Center sas, Via Storace 4r - 
Lavagna (GE): Raffo Linea Ufficio, 
Corso Genova 100 - La Spezia: So- 
ftline sri, Via Piave 19 - Rapallo 
(GE): Raffi) Linea Ufficio snc, Via 
della Libertà 130 -Sanremo (IM): 
La Bottega del Computer, Via Martiri 
Libertà 180 - Savona: Briano snc, 
Corso Tardy e Benech 20r - Sestri Po¬ 
nente (GE): All Computer sas, Via 
C. Menotti 136r. 

LOMBARDIA 

Almè (BG): Elcod, Viale Italia 45/A 
Assago (MI): Basic Computers, Cen¬ 
tro Commerciale Milanofiori- Berga¬ 
mo: Il Mondo dell'Informatica, Via Pi- 
tentino 8; Studio 15 sri, Via Quarenghi 
60 - Brescia: Alfa Computer, Via 
Bassi 26; Brescia Computers sri, Via 
Malta 12; Il Computer srl, Via Solferi¬ 
no 5; Personal Data, Via Brozzoni 4 - 
Como: Accaesse Informatica sri, Via 
Acquanera 46; D.S.I. sri. Via Dottesio 
8; Irpe Informatica srl, Via Cadorna 
l/a - Cremona: Archimede, Via Pale- 
stro 11/b - Gallarate (VA): Irpe 
Computer srl, Va Pegoraro 8 - Gavar- 
do (BS): Bit Shop, Via G.Quarena 
120 - Lecco (CO): Computers Lecco 
snc. Via N.Bixio 18/b; Datamation, 
Viale Turati 40 - Lissone (MI): Com- 
puterlandia, Via Martiri Libertà 72 - 
Mantova: Antek Computer sas, Via 
Cavour 69 - Melegnano (MI): L'A¬ 
mico del Computer, Via Castellini 25 - 
Milano: A.G.Informatica srl, Via G. 
Silva 49; All'Informatica Shop, Via 
Lazzaretto 2; AllTnformatica srl, Via 
Vigevano 8 ; Communications Enginee¬ 
ring, Piazza Firenze 4; Deltron srl. 
Viale Gran Sasso 50; Esprit, Via Ber¬ 
gamini 13 ; Happy System, Piazza Diaz 
6; Il Tempio del Computer, Via Patta- 
ri 2; Indico srl, Via Marco d’Agrate 1; 
Indico srl,Via Pier Capponi 12; Infor¬ 
mation Technology, via dei Bossi 7 
ang. Broletto; La Bottega Informatica 
srl, Via Turati 6; Macan sas, Via Bro¬ 
letto 39; Microtech Sistemi, Viale Pia¬ 
ve 7; Polisistemi.Via Dema 19; SH 


Computer srl, Viale Montenero 33; 
Small Business Computers, Via Vitru- 
vio 38; Softec Computer, Viale Jenner 
23 - Monza (MI): ESI sri. Via Cava- 
lotti 11; Nikom Electronics, Via Asia¬ 
co 7 - Pavia: M.A.S.H. Computer 
Systems, Via della Rocchetta 5; Senna 
Gianfranco snc, Via Calchi 5 - S.Anto- 
nio Mantovano (MN): Antek Com¬ 
puter sas, Via Manzoni 49 -Trezzano 
sul Naviglio (MI): Personal Compu¬ 
ter Shop, Via L. da Vinci 36 -Varese: 
IRPE sri, Via Carantani 1 - Villasan¬ 
ta (MI): Computer Area show room. 
Via Carducci z; Computer Area snc. 
Via Volta 27/a. 

TRENTINO. 

Bolzano: Dataplan, Sparkasse Strasse 
9 - Merano: Computer Market, Via S. 
Maria del conforto 22 - Trento: 
SI.GE. sas. Via Piave 28. 
FRIULI-VENEZIA GIULIA 
Gorizia: Elcom, Corso Italia 149 - 
Pordenone: Electronic Center snc, 
Viale Libertà 79; Electronic Center, 
Viale Martelli 17 - Trieste: Compu- 
termarket, Via Valdirivo 6 -Turriaco 
(GO): Tecno Power Elettronica, Via 
Marconi 19 - Udine: Bit Computers, 
Via Pozzuolo 107; PS Elettronica sas, 
ViaTavagnacco 89/91 c.c. 

VENETO 

Bassano dei Grappa (VI): A-Tre 
snc. Piazza Firenze 23 - Conegliano 
(TV): Computing Program, Via 
G.Piovesana 32; De Marin Computers, 
Via Matteotti 142 - Creazzo (VI): 
Uomo Computer, Via Olmo 38 - Me¬ 
stre (VE): Pacinotti sas, Via Torino 
92 -Mirano (VE): Saving Elettroni¬ 
ca, Via Gramsci 40 - Montebelluna 
(TV): Uomo Computer, Corso Mazzi¬ 
ni 53 - Montecchio Magg.(VI): Ef- 
fecomp (Esa), Piazza Carli 2 - Pado¬ 
va: Capovilla & C. sas. Galleria Scro- 
vegni 5; Computer Service sri, Via 
Beethoven 3; EDP Sistemi srl, Via Bor¬ 
romeo 13 - Rovigo: Computer Servi¬ 
ce sas, Via Cavallotti 12 Treviso: A5 
Computers srl. Borgo Cavour 37/a - 
Venezia: Personal Computer, Canna¬ 
regio 5894- Verona: ARMU sri, Via 
Teatro Filarmonico 3; Chip Computer 
(Esa), Stradone S. Fermo 8; Esacomp 
srl, Via Roveggia 43; MOS 80 sas, Via 
Germania 21; MOS 80 Computer 
Shop, Via del Pontere 2; MOS 80 Per¬ 
sonal Computers, Largo Marzabotto 
21- Vicenza: Abc Informatica srl, 
Contrà Porta Padova 19; Abc Informa¬ 
tica srl. Viale S.Lazzaro 19; Sevi sas, 
Via S.Agostino 87 -Villafranca 
(VR): Studio 4, Corso V.Emanuele 
65. 

EMILIA.RAM AGN A 

Bologna: Ceda Minicomp sr, Piazza 
Aldrovandi 2/2; Computer Systems, 
Via Ercolani 10/d; Edp Sistemi BO, 
Viale Pietramellara 61/F; Lucky 
Systems, Via Farmi 33/a; Sercom, Via 
B. da Capi 9/b - Carpi (MO): Irei 
Carpi, Via Berengario 58 - Cesena 
(FO): SHC snc, Via Pisa 40/42 -Ferra¬ 
ra: Mazzacurati Claudio, Viale Ca¬ 
vour 186/188; Soc. Termomeccanica, 
Via Tito Speri 5 ; Tecnomeccanica, Via 
Garibaldi 195 - Fidenza (PR): Archi- 
mede, Via Vito Aimi 2; RCM Compu¬ 
ter, Via Comini Malpeli 11 - Fio- 
renzuola d'Arda (PC): Centro 
Computer, Corso Garibaldi 125/a - 
Forlì: A-Z Computer srl, Via Cignani 
7; Icof Impianti srl, Via Masetti 56; 
Kronos, Via O. Regnoli 30 - Imola 
(BO): Computers srl. Via S.P.Grisolo- 
go 38 -Modena: Canalgrande Infor¬ 
matica, Corso Canalgrande 29; Masetti 
Elettronica srl, Via Emilia Centro 211 - 
Parma: Computek sas, Piazzale Boito 
5; Irei spa. Via Cavallotti 3; RCM 
Computer, Va Farmi 51/a - Piacen¬ 


za: PC Personal Computer, Via Chiap¬ 
poni 42; RCM Computer, Corso V. E- 
manuele 96 - Reggio Emilia: Com¬ 
puter Center sri, Via D.Alighieri 4; E- 
saprogetti, Via F.Filzi 2; Iret spa, Via 
Emilia S.Stefano 32 - Rimini: Compu¬ 
ter Line, Via Coletti 61 - Sassuolo 
(MO): Iret Sassuolo, Via Pretorio 65 - 
Scandiano (RE): Informatica 

System, Via Statale 13/a - Viserba di 
Rimini (FO): Computer Center, Via 
Pallotta 25/a. 

TOSCANA 


Arezzo: Sisted srl, Via Galvani 22; Si- 
sted sri, Piazza Risorgimento 10 - Bor¬ 
go a Buggiano (PT): CO-DI snc, 
Via 24 Maggio 119 - Firenze: Anfrel 
Informatica sas, Via Masaccio 50 e Via¬ 
le Gramsci 10/r; Centro Servizi srl, 
Via Petrocchi 24; Computer Line srl, 
Viale Spartaco La vagnini 20; Elettroni¬ 
ca Cento Stelle sri. Via Cento Stelle 
5/b; Line spa. Via G.Di Vittorio 10; 
Paoletti Ferrerò, Via il Prato 40/42r; 
P.T.E. snc, Via Duccio da Buoninse- 

f na 60; Soluzioni EDP srl, Corso dei 
intori 39r; Tuttocomputer (centro 
servizi). Via Panzani 36/38r - Forte 
dei Marmi (LU): Blu Data, Via Mo- 
rin 95 - Grosseto: CJ.S.I.D. Compu¬ 
ter snc, Via Papa Giovanni XXEI 4 - 
Livorno: Livinform 2, Scali delle 
Cantine 62; Livinform sri, Via Roma 
8 (piazza Attias) - Massa: Euro Com¬ 
puter sas, Piazza C. Bertagnini 4 - 
Montecatini (PT): Co-Di snc, Via 1 
Maggio 20/22, Fraz.Margine Coperta - 
Perignano (PI): Memor Informatica 
srl, Via Togliatti 2/4/8 - Piombino 
(LI): Centro Ufficio sdf. Via F.Fer- 
rer 37/39 - Pisa: Data Pori due, Via 
Sancasciani 35; Società Elettronica Tir¬ 
rena, Via Fucini 20 - Pistoia: Inter 
Systems, Via Mascagni 14 - Pon lede¬ 
rà (PI): Data Pori sri, Via Brigate 
Partigiane 27 - S.Giovanni Valaar- 
no (ÀR): I.C.S. srl, Via Garibaldi 
46. 

UMBRIA 

Cerbara di Città (PG): Computer 
Post, Via Madonna del Vento - Foli¬ 
gno (PG): Linea Informatica snc, Via 
Garibaldi 81- Perugia: Icot Impianti, 
Via Cicioni 8 Ponte S.Giovanni 
(PG): Ready Computer srl, Via Adria¬ 
tica 49. 

LAZIO 

Latina: Easy Byte, Viale XVin Di¬ 
cembre 44 Lido di Ostia (Roma): 
A.C.S. Advanced Computer System, 
Via Consacchi 10; Cosmic srl, via del¬ 
le Gondole 168/170-Ostia (Roma): AG 
Computer Systems srl, Via A. Carabel¬ 
li 108/112 - Roma: AG Computer 
Systems srl, Via G.Lanza 101/105; 
Biotech srl, Via S.Valentino 18; Bit 
Computers 2, Viale Ionio 333/335; Bit 
Computers 3, Via Nemorense 14/16; 
Bit Computers Nord, Via Tuscolana 
350/350a; Bit Computers Star, Via 
F.Satolli 55/59; Compushop, Via No- 
mentana 265/273; Computer Center 
srl, Via Nizza 48/52; Computerai! srl, 
Via Michele di Landò 41; Computime 
srl, Via Cola di Rienzo 28; Computime 
srl, Viale Paridi 25; Cosmic srl, Via 
Viggiano 70; Cosmic srl, Via Vespasia¬ 
no 56/b; Easy Byte, Via G.Villani 24; 
EDP Market, Via Somalia 205; EM 
Eur Micro Computer, Viale C. Pavese 
267;FBM di Mario Bagnetti, Via Fla¬ 
minia 395; SIPREL srl. Via Pompeo 
Magno 94 - Roma EUR: Bit Compu¬ 
ters, Via F.Domiziano 10-Viterbo: Al¬ 
fa Computer, Via Palmanova 12/c. 
MARCHE 

Ascoli Piceno: Rinascita Informati¬ 
ca sas, Corso Trento e Trieste 17-Ca- 
merino (MC): MED, Via V.Venanzi 
11/13 - Civitanova Marche (MC): 
NBP Elettronica, Via Don Bosco 




11/13-Fabriano (AN): MED, Piazza 
Rosselli 6-Jesi (AN): EMJ sas, Via 
F.Conti 4; New Computer srl, Via Per- 
golesi 271- Macerata: MED, Via 
Mozzi 72/a -Torrette di Ancona 
(AN): Sisteda spa, Via Flaminia 
286/a; Sisteda sri, Via Velino 5. 

ABRUZZI 

Avezzano (AQ): Aspron, Via Ameri¬ 
ca 10/12 - Chieti: Computer sdf. Via¬ 
le Unità d'Italia 5 - L'Aquila: SEAD 
sri, Via Giardini 16a - Lanciano 
(CH): Electronic Microsystems, Via 
della Pace 3- Pescara: OCSA srl, Via¬ 
le Marconi 361 (zona stadio); Ormi 
Computers sri. Via C. Goldoni 5 -Va¬ 
sto Marina (CH): OCSA srl, S.S. A- 
driatica 

MOLISE 

Boiano (CB): Iannotti Giovanni, Lar¬ 
go Duomo 14 - Campobasso: Infor¬ 
matica Molisana, Via B. Buozzi 12. 

CAMPANIA 

Avellino: ICC Elettronica srl, Via de¬ 
li Imbimbo 126 - Barano d'Ischia 
A): Matterà Antonio, Via Roma 61- 
Benevento: Masone Informatica, Via¬ 
le dei Rettori 57- Caserta: Sistel 
Computers, Corso Trieste 124 - Napo¬ 
li: Computer Systems srl, Via Puccini 
19; Golden Computer srl, Via Miche¬ 
langelo 7; IC International Computer 
srl. Via Nuova S.Rocco 62/P.co Solea- 
do; IC International Computer, ViaPo- 
sillipo 130; La Barbera Carlo sas, Via 
Toledo 320 - Salerno: Computer 
System, Via E.Bottiglieri 19; SEDA 
sri, Via Parmenide c/o lannone. 

BASILICATA 

Matera: Lucana Sistemi srl, Via Don 
Minzoni 4. 

PUGLIE 

Bari: Auditorium 3, Piazza Massari 
15; Ciesse spa, Via Re David 176/d; 
L.e L. Computers srl, Largo 2 Giugno 
4-Brindisi: SIC srl, ViaS.Giovanni Bo¬ 
sco 109 - Foggia: ISI srl, Via Matteot¬ 
ti 83 - Lecce: Quasar Informatica srl, 
Via Giacomo Arditi 11 - Molfetta 
(BA): Auditorium 3, Piazza Garibaldi 
12/a - Putignano (BA): Amore & 
Computer, Via GTaterza 28-Taran- 
to: Elettrojolly Centro srl, Via De Ce¬ 
sare 13. 


CALABRIA 

Catanzaro: Ce Sim sas, Via Carlo V 
174/180; Visicom srl, Via Minniti Ip¬ 
polito 10 - Cosenza: Micro System 
sdf, Via Roma 75 - Gioia Tauro 
(RC): Tecnocomp snc. Via Nazionale 
SS 111/117 - Reggio Calabria: 
GLM Informatica snc. Via De Nava 98 
- Spezzano Albanese (CS): lannibel- 
li. Via Stragolia 48. 

SICILIA 

Catania: Cafici Francesco, Via Ala 
57/59; Centro Informatica sdf, Via Fi¬ 
renze 211 ; Computer Shop, Via E. Or¬ 
lando 164; SI.EL Informatica snc, 
Piazza Galatea 2 - Messina: CEE srl, 
Via Industriale 116; Cubeta srl, Via 
Cardines 12/14; Libreria Bonanzinga, 
Via dei Mille 110 - Milazzo (ME): 
Tectron Tecnologie Elet. srl, Via dei 
mille - Palermo: Computer Shop (In- 
f.Comm.), Via Notarbartolo 23/bc; In¬ 
formatica Commerciale spa, Via No¬ 
tarbartolo 26 - Ragusa: Sosyco, Corso 
V.Veneto 597 -Trapani: Gualano Eu¬ 
genio, Via Virgilio 11. 

SARDEGNA 

Cagliari: SU, Via S.Lucifero 85 - Sas¬ 
sari: Bajardo, Viale Italia 16. 


































Continua la rassegna dei dischetti di FreeSoftware per Macintosh: 
in questo numero i dischi 19 e 20 della seconda serie. 

Riparare, 
proteggere, e... 


Disco 19 

• Disk Ranger Demo, Direc¬ 
tory 0.9: Utility. 

Servono per effettuare riparazioni su 
dischetti rovinati e sono in grado di 
ricostruire le directory eventualmen¬ 
te danneggiate. 

• Phantom Catalog, Phantom 
Disk Report e Phantom Direc¬ 
tory: data base. 

Questo pacchetto di programmi, im¬ 
propriamente definiti data base, ser¬ 
vono per mettere in ordine la vostra 
biblioteca di dischetti; infatti leggo¬ 
no le directory dei dischetti, che de¬ 
vono essere introdotti uno alla vol¬ 
ta. E’ possibile memorizzare fino a 
999 directory di dischetti; dopo di 
che i programmi vengono ordinati 
per i valori desiderati (tipo, nome, 
ecc.) ed è possibile stampare il cata¬ 
logo dei programmi in cui è indicato 
il dischetto di appartenenza. 


• P/C Privacy, DataEncryptor- 
System: Utility. 

Sono due applicazioni molto utili se 
si vogliono mantenere segreti i pro¬ 
pri lavori, ed impedire ai curiosi di 
sbirciare nei propri file. 

Ovviamente un file encriptato, per 
poter essere di nuovo disponibile, de¬ 
ve essere decriptato, reinserendo la 
password, che era stata chiesta all’ini¬ 
zio della procedura di encriptazione. 

Disco 20 

• WS to MW: Utility. 

E’ un programma di utilità estrema- 
mente interessante per chi deve tra¬ 
sportare testi scritti con Wordstar su 
PC Ibm su Macintosh. 

Infatti non è sufficiente trasmettere 
via cavo o via modem il testo ma, 
poiché i caratteri di controllo di im¬ 
paginazione e degli stili dei caratteri 
sono diversi tra Wordstar e MacWri- 



Freesoftware #19 


1 4 elementi 

182K su disco 

209K disponibili | 

1 

fc. * . . ... 

_ 1 1 


Disk Util 


2 elementi 182K su disco 209K disponibi 


V jCjEM Oj 

KRNQER 

Disk Renger Demo 


Directory 0.9 



Encryptor 


182K su disco 209K disponibili 


f 


4* 


P/C Privacy Demo DataEncryptionSy sterri 



te, questo programma permette di 
convertire un qualsiasi testo Wor¬ 
dstar portato in Macintosh, in un te¬ 
sto perfettamente leggibile da Mac- 
Write. 

• Yapu 3.2: Utility. 

Con questa utility è possibile defini¬ 
re i formati di stampa di un qualsiasi 
documento da stampare, senza dover¬ 
li impostare tramite l'applicazione 
che ha generato il documento. 

• PageSetup Customize: Uti¬ 
lity. 

E' un programma analogo al prece¬ 
dente, con la differenza che Yapu 3.2 
non memorizza, una volta finita la 
stampa, la formattazione di quel do¬ 
cumento, mentre PageSetup Custo¬ 
mize associa i formati desiderati al 
documento, mantenendoli inalterati 
sino a quando non saranno rimodifi¬ 
cati. 

• CalendarMaker 2.0: Educa¬ 
tional. 

Con questo programma, partendo da 
disegni creati con MacPaint, è possi¬ 
bile creare, e quindi stampare, un ca¬ 
lendario personalizzato su dodici fo¬ 
gli, valido per qualsiasi anno si desi¬ 
deri. 


Figura 2. 


Freesoftwore #20 




Cataloger 


3 elementi 


1S2K su disco 

209K disperi 

UT 

Phentor 

n Disi 

< Report 

Phentom Directory 







Figura 1. 


idi PageSetup CustomiziEDi 


6 elementi 316K su disco 75K disponib 


jtt. Page Setup Customizer 
gpSC Kernel 
0MLOAD.BIN 
H neon .r sre 
gjPSC Menu 


Vopu Folder 


2 elementi 316K su disco 


| a-:-= | 
YAPU.doc 


D 


yapu v3.2 






LUordstar Conuer 

2 elementi 3l6Ksudisco 73K disrj 

VStoMV VStoMWDocs 



3 


Calendar Folder 


316K su disco 75K disponibili 


CalendarMaker* 1 2.0 


82 














































































One-liner 


Un brevissimo one-liner di Giulio 
Ardoino di Genova, con il quale po¬ 
trete, inserendo un distanza in Mi¬ 
glia, avere immediatamente la relati¬ 
va corrispondenza metri, chilometri, 
piedi, pollici, yarde. 

Oneliner 173 

IODATA MIGLIA, 1, KM, 1.60931, M, 1 
609.31,INCH, 63360,PIEDI, 5280, 
YARD,1760: INPUT "QUANTE MIGL 
IA? ";M: FOR N = 1 TO 6: READ 
W$,X: PRINT X * M;" ";W$: NEXT 

Da Alessandro Maio di Casalec- 
chio di Reno (BO) arriva un one li¬ 
ner grafico che genera, in seconda pa¬ 
gina grafica e in modo continuato, u- 
na rete a quattro punte dall'effetto ab- 
bastanzagradevole. Unaraccomanda- 
zione: prima di eseguire il program¬ 
mino, è necessario salvare su disco 
il listato copiato in quanto esso si 
automodifica cambiando il Token re¬ 
lativo ad HGR2, nel Token relativo 
a &, per evitare nei successivi pas¬ 
saggi di ripulire la pagina grafica. 

Oneliner174 

1 HGR2 : HCOLOR= 7 - P: POKE 20 
53,175 :A = 0 :B = 0:F = 79:E = 

79 :D = 79:C = 79: FOR X = 1 TO 
27: HPLOT A,B TO F,D: HPLOT A 
,B TO E,C: A = A + 6 :B = B + 6: 

F = F + SGN (A - 79) * 6:E = 

E - SGN (A - 79) * 6:D = D - 
SGN (B - 79) * 6:C * C + SGN 
(B - 79) * 6:P = 1 + (P - 1) 

* - 1: ON A > 158 AND B > 158 

GOTO 1: NEXT 

Paolo Pisani ci manda da Trieste 
un breve one-liner in liguaggio mac¬ 
china, funzionante con DOS 3.3, 
che si installa in memoria con un 
normale BRUN ed evidenzia, nel ca- 
talog del dischetto, il numero dei set¬ 
tori liberi. Una volta copiato, salva¬ 
telo con l'istruzione BSAVE SPA¬ 
CE, A$300U$46. 

Oneliner 175 

*300.345 

' 0300- A9 0B 8D AC AD A9 03 8D 

0308- AD AD 60 20 F7 AF A9 00 

0310- 85 00 85 01 A0 38 B9 BB 

0318- B3 A2 07 0A 90 06 E6 00 

0320- DO 02 E6 01 CA 10 F4 C8 

0328- DO EC A5 01 A6 00 20 24 

0330- ED A0 00 B9 3E 03 F0 D2 

0338- 20 ED FD C8 DO F5 A0 C6 

0340- D2 C5 C5 A0 A0 00 

Questo one liner di Carlo Gianni¬ 
ni di Bibbiena (AR) permette di leg¬ 
gere il contenuto della memoria di 


un Apple, in valori decimali. L'out¬ 
put consiste in una colonna, in in¬ 
verse, con il numero delle locazioni 
cui corrisponde, in Normal, il valore 
decimale delle locazioni stesse. 

Oneliner 176 

1 HOME : VTAB 12: INPUT "MEMORIA 
da LOC. m -> ";M: HOME : VTAB 
12: INPUT " a LOC. n -> 

";N: HOME : FOR I = M TO N:I$ 
=STR$ (I):PRINT " loc. ";:INV 
ERSE : PRINT I;: NORMAL : PRINT 

SPC (5-LEN(1$));"." 

; PEEK (I): NEXT I 

L'one liner presentato qui sotto, 
mandatoci da Aldo Fugazza di Pizzi- 
ghettone (CR), permette di creare un 
piccolo sistema per bloccare il di¬ 
schetto fondato su due istruzioni PO¬ 
KE, creando un file di testo che, una 
volta eseguito, stabilisce il blocco. 
L'one liner termina con un REM in¬ 
dicando l'is truzione necessaria per eli¬ 
minare il blocco. 

Oneliner 177 

10 HOME :D$ = CHR$ (4):V$ = "," 

: PRINT D$;"OPEN LOCKDESK": P 
RINT D$;"WRITE LOCKDESK": PRI 
NT "POKE 1011";V$;"32 :POKE 44 
033";V$;"16:? D$;"CLOSELOCKDE 

SK":REM...PER ELIMINARE_BL 

OCCO, BATTERE:.POKE 4 40 

33,17:POKE 1011,190 

David Bencini di Sesto Fiorentino 
ha ideato un piacevole effetto grafico 
abbastanza curioso che può essere in¬ 
serito facilmente, con opportune mo¬ 
difiche, in un programma di dimen¬ 
sioni più vaste. 

Oneliner 178 

1 HGR : HCOLOR= 3: FOR I = 0 TO 
11:X = 140 - (I * I):Y = 80 - 
(1*1)/ 2 : A = 140 + (I * I) : 

B = 80 + (1*1) / 2: HPLOT X, 

Y TO A,Y TO A,B TO X,B TO X,Y: 
FOR T = 1 TO 150: NEXT : NEXT 
: GOTO 1 

Con questo programma di Attilio 
Ortenzi dell'Aquila è possibile effet¬ 
tuare un controllo del proprio peso 
tramite la formula di Lorentz. 

Introducendo altezza (in cm) e pe¬ 
so (in kg) si può sapere se si è in 
forma o se sarebbe meglio dimagrire 
o ingrassare un po' e in questo caso 
quanti kg perdere o acquistare. Per 
valutare il peso ideale di un indivi¬ 
duo, esistono diverse formule, ma la 
più usata, vista la semplicità e la 


buona affidabilità, è la formula di 
Lorentz semplificata da Vanderwael: 

P; H (kg)=H (cm)-100- H(cm) - 150 

4 

Pid = peso ideale H= altezza 
Risolvendo il II membro la stessa e- 
quazione diventa: 

P id = 0.75H-62.5 

Si considera obeso l'individuo il 
cui peso effettivo supera del 10% 
quello calcolato con la formula di 
Lorentz; si considera magro l'indivi¬ 
duo il cui peso è inferiore al peso i- 
deale diminuito del 10%. 

Oneliner 179 

1 HOME :A$ = " IL TUO PESO FORM 
A! DEVI " :B$ = " ALMENO KG ": 
INPUT "PESO,ALTEZZA = ";P,H:L 
= .75 * H - 62.5 :M = .9 * L:N 
= 1.1 * L: HOME :D = P - N: PR 
INT "SEI SOPRA" ;A$ : PRINT "PER 
DERE" ;B$; D : IF D < =0 THEN 

HOME :D = M - P: PRINT "SEI SO 
TTO" ;A$: PRINT "ACQUISTARE" ;B$ 
;D: IF D < =0 THEN HOME : P 

RINT "SEI IN FORMA!" 

One liner grafico creato da Luisa 
Gatti di Borgo San Pietro (Moncalie- 
ri), che costruisce in continuità figu¬ 
re diverse una dall'altra, facendo rote¬ 
are sullo schermo grafico dell'Apple, 
una linea di diversa misura. 

Oneliner 180 

1 A = INT ( RND (1) * 1E4):B = 
INT ( RND (1) * 1E4): HGR2 : 
HCOLOR= 3: RI = 80:R2 =100: F 
OR I = 0 TO 6.28 STEP 0.1:X = 

R2 * COS (I) + 140 :Y = RI * 

SIN (I) + 97:X1 = R2 * COS (I 

- A) + 140:Y1 = RI * SIN (I 

- B) + 97: HPLOT X,Y1 TO XI, Y: 
NEXT I: FOR I = 0 TO 2000: NE 
XT I:GOTO 1: TEXT : HOME : END 

Questo breve one liner di Gianfran¬ 
co Mereghetti di Ossona (MI) scom¬ 
pone una qualsiasi parola o frase lun¬ 
ga sino a 40 caratteri, spargendone 
le lettere per lo schermo e ricompo¬ 
nendola poi sulla prima riga perfetta¬ 
mente centrata. 

Oneliner 181 

1 DIM X(41), Y(41): INPUT A$: HO 
ME :L = LEN (A$): FOR I = 1 T 
O L:L$ = MIDS (A$,1,1):X(I ) = 
INT ( RND (1) * 38) + 1:Y(I) 

= INT ( RND (1) * 22) +2: H 
TAB X(I) : VTAB Y(I): PRINT L$: 
NEXT : FOR P = 1 TO L: HTAB X 
(P): VTAB Y(P): PRINT " " : VTA 
B 1: HTAB P + (20 - L / 2) : PR 
INT MID$ (A$, P, 1) : FOR I = 1 
TO 100: NEXT : NEXT 
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Nel corso dell'ultimo anno molte novità sono state prodotte nel campo dei 
linguaggi di programmazione per Macintosh. 

Di Basic, Pascal, "C", Fortran, e Logo esistono attualmente 
nuove, interessantissime versioni. 

Parole nuove 
per programmare 


Una delle attività più gratificanti e 
interessanti che possa essere svolta 
con un personal computer è senza 
dubbio quella di scrivere software. 
Qualunque sia il livello tecnico del 
programmatore, la soddisfazione de¬ 
rivante dall'aver realizzato un’applica¬ 
zione funzionante, sia essa elementa¬ 
re o altamente professionale, va spe¬ 
rimentata almeno per una volta. 

Anche perché, nonostante le diffi¬ 
coltà da superare siano parecchie, 
non occorre essere dei professionisti 
o dei tecnici provetti per poter assa¬ 
porare almeno di tanto in tanto le 
gioie della programmazione. 

Una macchina che si presta partico¬ 
larmente allo sviluppo di software 
applicativo è naturalmente il Macin¬ 
tosh, che può far valere in questo 


senso la facilità d'uso e l’interfaccia 
utente user friendly. Esiste purtrop¬ 
po anche un rovescio della medaglia: 
un programma di buon livello scrit¬ 
to per il Mac dovrà a sua volta esse¬ 
re dotato proprio di quell'interfaccia 
utente: menù a discesa, finestre, ecce¬ 
tera, e dovrà essere completata dal¬ 
l’indispensabile utilizzo del mouse. 

Per realizzarla, è necessario accede¬ 
re a una serie di routine contenute 
nelle ROM del Macintosh, che sono 
conosciute genericamente sotto il no¬ 
me di Toolbox, e che possono esse¬ 
re sfruttate anche per la gestione di 
grafica, suono, eccetera. La descrizio¬ 
ne accurata e dettagliata del Toolbox 
si può trovare nei volumi Inside Ma¬ 
cintosh, pubblicati dalla Addison 
Wesley. Si tratta di quattro libri, che 


costituiscono in un certo senso la 
bibbia di chi programma sul Mac, e 
che risultano indispensabili per rea¬ 
lizzare applicazioni di un certo livel¬ 
lo, qualunque sia il tipo di linguag¬ 
gio utilizzato. 

I nuovi pacchetti 
del Basic 

Di linguaggi si è parlato sul nume¬ 
ro 24 di Applicando del Marzo 
1986, anni luce fa: numerose sono 
le novità che nel frattempo sono sta¬ 
te presentate sul mercato, a testimo¬ 
nianza della vitalità che contraddi¬ 
stingue l'ambiente Macintosh, e il 
mondo Apple in generale. Vediamo 
dunque in dettaglio la situazione, a- 
nalizzando per argomento i pacchet¬ 
ti più significativi. 

Il Basic è indubbiamente il lin¬ 
guaggio più noto e più utilizzato, da¬ 
ta la sua semplicità di apprendimen¬ 
to, anche se in genere non viene usa¬ 
to per lo sviluppo di applicazioni al¬ 
tamente professionali, a causa di una 
serie di limiti ben precisi. 

Fino a poco tempo fa, in particola¬ 
re, l’uso su Macintosh era seriamen¬ 
te compromesso dalla mancanza di 
un compilatore in grado di generare 
programmi sufficientemente veloci e 
in grado di funzionare autonomamen¬ 
te. L'interprete di maggior diffusio¬ 
ne, il Microsoft Basic 2.1, veniva 
quindi usato prevalentemente per ap¬ 
plicazioni di carattere personale, con¬ 
siderato anche un'interfacciamento al 
Toolbox abbastanza problematico e 
incompleto. 

La situazione è radicalmente muta¬ 
ta a partire dall'autunno dello scorso 
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Figura 1. Lightspeed Pascal. 
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381.000 



Bit & Bytes 
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Hi-Tech S.a.s. 
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Object Logo 

Coral Software 
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anno, con l’introduzione di Zbasic. 

• Zbasic è un Basic compilatale 
che consente fra l’altro di scrivere li¬ 
stati altamente portatili, visto che e- 
sistono anche versioni per CP/M, 
MS-DOS, e Apple IL Zbasic, che è 
giunto alla versione 3.03, produce 
applicazioni che possono adattarsi 
automaticamente alla grafica della 
macchina che ospita il programma, 
e si distingue per una buona velocità 
di compilazione, oltre che per la no¬ 
tevole precisione nei calcoli. Garanti¬ 
sce un completo accesso al Toolbox 
(oltre 400 diversi comandi disponibi¬ 
li), è compatibile con AppleTalk e 
LaserWriter, e ha un costo molto 
contenuto. Implementando numero¬ 
se istruzioni non standard rispetto al¬ 
la norma dei Basic più diffusi (Mi¬ 
crosoft in particolare), richiede un 
breve periodo di rodaggio da parte 
dèi nuovi utilizzatori; i risultati otte¬ 
nibili ripagano comunque di questo 
piccolo sacrificio, considerando an¬ 
che che la versione 3.03 è stata depu¬ 
rata di alcuni problemi operativi che 
caratterizzavano e limitavano le rele- 
ase precedenti. 

• Microsoft Basic 3.0 è un’al¬ 
tra grande novità, introdotta recente¬ 
mente dalla Microsoft, che probabil¬ 
mente è la casa più attiva su Macin¬ 
tosh. Questa versione 3.0 del suo Ba¬ 
sic, con relativo compilatore, imple¬ 
menta nuove istruzioni, che consen¬ 


tono fra l'altro la creazione di struttu¬ 
re ricorsive del tipo IF/THEN, e per¬ 
mette un accesso al Toolbox più 
semplice ed esauriente rispetto alle 
versioni precedenti. Funziona natu¬ 
ralmente sotto HFS (Hierarchical Fi- 
ling System), e offre completo sup¬ 
porto per grafica e suono, oltre che 
per la LaserWriter. Una Runtime 
può essere utilizzata per far girare 
l'applicazione anche senza la presen¬ 
za dell’interprete. 

• MS Basic Compiler, lunga¬ 
mente atteso sia dagli utenti profes¬ 
sionali sia dai semplici appassiona¬ 
ti, è in grado di compilare un’applica¬ 
zione sviluppata in MS Basic 2.1 o 
3.0, e di produrre un programma au¬ 
tonomo, che potrà essere lanciato 
semplicemente con un doppio clic 
sull’icona corrispondente. Secondo 
le specifiche del produttore, l’aumen¬ 
to di velocità varia dalle 10 alle 30 
volte rispetto al programma non 
compilato. Il compilatore funziona 
anche sui Macintosh equipaggiati 
con le vecchie ROM da 64K, tenen¬ 
do conto comunque che l’utilizzo di 
dischetti da 800K o di hard disk ap¬ 
porta notevoli vantaggi in termini di 
flessibilità operativa. 

Grandi novità 
sul fronte Pascal 

Il Pascal è da considerarsi per certi 
versi il linguaggio nativo del Macin¬ 


tosh, dato che proprio in Pascal è 
stata realizzata gran parte del Tool- 
box. Per questo motivo l’interfaccia¬ 
mento con le routine contenute in 
ROM risulta spesso molto più sem¬ 
plice e diretto. 

Esistono tre prodotti relativamente 
nuovi disponibili sia per lo svilup¬ 
po di applicazioni altamente profes¬ 
sionali, sia per semplice diletto. 

• TML Pascal è stato il primo 
a comparire, in ordine di tempo. 
Messo a punto principalmente da 
Tom Léonard, che può essere consi¬ 
derato per capacità tecniche uno dei 
massimi esponenti del mondo Ma¬ 
cintosh, presenta, nella attuale ver¬ 
sione 2.0, numerose caratteristiche 
molto avanzate. Dispone infatti fra 
l’altro di un text editor a finestre 
multiple, di un compilatore di risor¬ 
se, e di un compilatore passo passo 
per il codice sorgente con una veloci¬ 
tà di circa 3000 linee al minuto. E’ 
compatibile sia con MPW che con 
Macintosh Pascal della Apple, con¬ 
sente un completo accesso al Tool- 
box secondo le specifiche e le defini¬ 
zioni di Inside Macintosh, permette 
di compilare separatamente unità di¬ 
verse facenti parte dello stesso pro¬ 
gramma e di integrare routine scritte 
in Assembler MDS o in linguaggio 
"C”. 

E’ dotato di un set di istruzioni per 
la programmazione di tipo object- 
oriented, e supporta le routine SA- 




■I 


■MMI 


■■■■M 

85 







NE (Standard Apple Numerics Envi- 
ronment) per i calcoli in virgola mo¬ 
bile. Il costo ridotto e la notevole 
versatilità ne hanno fatto in breve 
tempo un best seller negli Stati Uni¬ 
ti. Sono inoltre disponibili numero¬ 
si strumenti che integrano e accresco¬ 
no la funzionalità del compilatore: 
in particolare Edit+, un potente edi¬ 
tor per la preparazione dei listati; 
TML Source Code Library, una com¬ 
pleta biblioteca contenente 18 appli¬ 
cazioni in codice sorgente, che pos¬ 
sono essere utilizzate come esempi 
di programmazione, o incorporate di¬ 
rettamente nei programmi in fase di 
realizzazione; Database Toolkit, che 
contiene una completa struttura I- 
SAM (Indexed Sequential Access 
Method), da utilizzare nei casi in cui 
sia richiesta la gestione di archivi 
più o meno complessi; MacExpress, 
un prezioso ausilio nella creazione 
rapida ed efficiente dell'interfaccia u- 
tente per i programmi sviluppati in 
TML Pascal. 

• Lightspeed Pascal è un* al¬ 
tro Pascal caratterizzato da prestazio¬ 
ni di livello elevatissimo. 

Sviluppato dalla Think Technolo¬ 
gies, una software house già nota 
per aver realizzato Instant Pascal su 
Apple II, e Macintosh Pascal sul 
Mac (giunto ora alla versione 2.1, 
compatibile HFS), mette a disposi¬ 
zione del programmatore un sofisti¬ 
cato ambiente operativo, studiato 
nei minimi dettagli per agevolare e 
sveltire la messa a punto di un’appli¬ 
cazione. E’ possibile compilare il 
sorgente a una velocità di circa 


10.000 linee al minuto, ricom¬ 
pilando eventualmente solo le parti 
modificate, utilizzare uno screen edi¬ 
tor multi-finestra, organizzare in un 
unico programma varie unità separa¬ 
te. Il punto di forza di Lightspeed Pa¬ 
scal è comunque costituito dalle ecce¬ 
zionali capacità di debugging, che 
rendono estremamente semplice per 
chiunque individuare eventuali erro¬ 
ri, ed effettuare le necessarie corre¬ 
zioni. Innanzitutto la sintassi di o- 
gni linea viene controllata inizial¬ 
mente nella fase di introduzione; 
poi, durante ogni esecuzione di pro¬ 
va del programma elaborato, in fine¬ 
stre diverse vengono visualizzati pro¬ 
gressivamente gli input/output relati¬ 
vi a testo e grafica, e i valori delle e- 
spressioni e delle variabili. Una se¬ 
gnalazione di errore appare a fianco 
dell’istruzione dove è stato riscontra¬ 
to un errore. E’ possibile arrestare il 
programma in corrispondenza di una 
determinata istruzione, e ordinare 
un’esecuzione passo passo; viene so¬ 
stanzialmente facilitata anche la ge¬ 
stione delle chiamate al Toolbox, 
che se necessario sono progressiva¬ 
mente segnalate e controllate. E' as¬ 
sicurata la piena compatibilità con 
Lisa Pascal e Macintosh Pascal. 
Lightspeed Pascal viene fornito con 
un esauriente e completo manuale di 
circa 500 pagine, contenente una gui¬ 
da all'uso e una sezione di riferimen¬ 
to che descrive la sintassi e la seman¬ 
tica del linguaggio. 

• TurboPascal, prodotto dalla 
Borland International, è stato l'ulti¬ 
mo Pascal ad apparire in termini di 


tempo. Questo linguaggio può van¬ 
tare una tradizione invidiabile e inar¬ 
rivabile per qualunque contendente: 
le versioni per MS-DOS e CP/M so¬ 
no state vendute, dalla loro introdu¬ 
zione sul mercato, in oltre 400.000 
esemplari, costituendo uno dei mag¬ 
giori successi commerciali di tutti i 
tempi. 

Le caratteristiche sono sostanzial¬ 
mente allineate con quelle degli altri 
compilatori più avanzati, anche se al¬ 
cune finezze sono state sacrificate in 
favore di una velocità operativa mol¬ 
to elevata (può compilare circa 
12.000 linee per minuto). 

Esiste la possibilità di mettere a 
punto fino a otto programmi con¬ 
temporaneamente, comprabili anche 
in modo modulare; le dimensioni di 
un’applicazione sono limitate soltan¬ 
to dalla memoria RAM e dallo spa¬ 
zio su disco, tenendo comunque pre¬ 
sente che è supportata la segmenta¬ 
zione del codice compilato, in modo 
da far girare programmi che normal¬ 
mente richiederebbero una quantità 
di memoria superiore a quella dispo¬ 
nibile. Sono implementate numero¬ 
se estensioni rispetto al Pascal stan¬ 
dard, mantenendo il pieno supporto 
al Toolbox, ed è possibile effettuare 
operazioni in virgola mobile con 
un’accuratezzaalladiciannovesimaci- 
fra decimale. 

Una caratteristica particolarmente 
interessante è costituita dalla compat¬ 
tezza di tutto il pacchetto: Turbo Pa¬ 
scal, compresi editor e compilatore, 
occupa solamente 50K, consentendo 
di lavorare efficacemente anche con 
un Macintosh 512K e un solo disk 
drive. 

Il "C", il Fortran 
e altri ancora 

Il panorama relativo alle imple¬ 
mentazioni su Macintosh del lin¬ 
guaggio ”C", che ha incontrato un 
crescente successo in questi ultimi 
anni, è stato fin dall’inizio assai af¬ 
follato. 

Praticamente scomparsi Hippo 
"C" della Hippopotamus Software, e 
Softworks ”C”, fra i primi ad appari¬ 
re, continuano invece a riscontrare 
un buon successo Aztec "C" della 
Manx, Consulair "C" e Megamax 
”C”, che vengono spesso aggiornati 
in nuove e più sofisticate release. 

Di Consulair "C" va in particolare 
segnalata una versione in grado di 
supportare completamente il micro- 
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processore Motorola 68020 e il co- 
processore matematico 68881, che e- 
quipaggiano il nuovo Macinto¬ 
sh II, per lo sviluppo di applicazioni 
scientifiche dotate di straordinaria ve¬ 
locità e precisione. 

• Lightspeed "C" della Think 
Technologies rappresenta comunque 
la maggiore novità. 

Una delle più appariscenti caratteri¬ 
stiche di questo compilatore riguarda 
senza dubbio la sorprendente veloci¬ 
tà operativa (compila oltre 15.000 li¬ 
nee per minuto), mentre il Linker 
surclassa nettamente ogni altro pro¬ 
dotto in commercio. 

Come nel caso del Pascal, un gros¬ 
so punto di forza è costituito dalla fa¬ 
cilità d'uso e dalla potenza delle fun¬ 
zioni di debugging, che ne fanno 
consigliare l'uso sia a programmato- 
ri professionisti sia a utenti alle pri¬ 
me armi. 

La possibilità di passare istantanea- 
mente dall'ambiente di sviluppo al 
programma sviluppato e viceversa, 
oltre a una speciale opzione che con¬ 
sente di aggiornare automaticamente 
un progetto in modo da ricompilare 
e linkare solo i file effettivamente 
modificati, portano l'utente a operare 
in modo rapido e sicuro. Sono com¬ 
pletamente implementate le specifi¬ 
che di Kernighan e Ritchie e le esten¬ 
sioni di Harbison e Steele, ed è assi¬ 
curato un completo accesso a tutte 
le funzioni del Toolbox e alle routi¬ 
ne SANE. Una particolare utility pe- 
remette di convertire file in Assem¬ 
bler MDS nel formato delle librerie 
di Lightspeed "C". 

Il Fortran è invece un linguaggio 


ormai sorpassato, almeno per l'uso 
su personal computer avanzati, es¬ 
sendo in genere poco flessibile per 
quanto riguarda l'input/output dei da¬ 
ti e l'interfaccia utente. Nonostante 
ciò, conserva ancora parecchi segua¬ 
ci, essendo tuttora molto utilizzato 
in ambito universitario, e potendo 
contare su una biblioteca di program¬ 
mi scientifici vastissima. Non pote¬ 
vano quindi mancare le implementa¬ 
zioni su Macintosh, anche se le ca¬ 
ratteristiche di base del linguaggio 
andavano profondamente modificate 
per adattarle a una filosofia operativa 
del tutto diversa. 

• Microsoft Fortran 2.2 final¬ 
mente è HFS compatibile e gira sen¬ 
za problemi su Mac Plus con 
System 5.3. 

• Fortran 020, prodotto dalla 
Absoft, supporta il 68020 e il copro- 
cessore 68881, e realizza applicazio¬ 
ni in grado di rivaleggiare, in termi¬ 
ni di velocità, con quelle che girano 
normalmente su un Vax 780. 

• MacTran 77, un ambiente di 
sviluppo costituito da un editor, da 
un compilatore e da un debugger 
simbolico, è la novità di maggior 
spicco sul fronte Fortran. Si basa 
sullo standard ANSI 77, con la pos¬ 
sibilità di utilizzare menù a discesa e 
finestre di dialogo, in perfetto stile 
Mac, grazie a un completo accesso 
al Toolbox. 

Sono disponibili tutte le caratteri¬ 
stiche indispensabili per sviluppare 
applicazioni scientifiche di alto livel¬ 
lo, utilizzando matrici fino a 7 di¬ 
mensioni, variabili in singola e dop¬ 


pia precisione, numeri Reali e Com¬ 
plessi. Assai efficiente si rivela il de¬ 
bugger, che mette a disposizione tre 
finestre (Debug, Observe e Pro¬ 
gram), per visualizzare rispettiva¬ 
mente l'andamento del listato, con re¬ 
lative segnalazioni d'errore, lo stato 
delle variabili, e l'output generato 
dal programma durante il test. 

MacTran77 risulta quindi partico¬ 
larmente adatto a tutti coloro che, do¬ 
vendo trasportare programmi in For¬ 
tran su Macintosh, non vogliono ri¬ 
nunciare a un ambiente di lavoro 
confortevole e user friendly. 

Si contano a decine le altre novità 
esistenti in materia, alcune delle qua¬ 
li sono state messe a punto espressa- 
mente per il Macintosh (Rascal, Ne¬ 
on, eccetera), o portate da altri am¬ 
bienti nativi (esistono addirittura u- 
na implementazione di Cobol, com¬ 
mercializzata dalla MicroFocus, e u- 
na di APL, denominata Porta APL). 

Interessante è un nuovo LOGO, 
sviluppato dalla Coral Software, do¬ 
tato di un insieme di caratteristiche 
che lo portano a superare i ristretti li¬ 
miti delle applicazioni didattiche ed 
educative: Object Logo, che rap¬ 
presenta una via di mezzo fra il Lo¬ 
go e il Lisp, comprende fra l’altro i- 
struzioni per la programmazione Ob¬ 
ject-Oriented, la gestione di array e di 
numeri razionali e complessi, e la 
possibilità di linkare routine scritte 
in assembly. 

Inoltre, assieme al normale inter¬ 
prete di uso semplice e immediato, 
viene fornito anche un compilatore, 
per la creazione di applicazioni auto¬ 
nome e veloci. 

Stefano Minotto 


Dove trovarli? 

Uno dei principali problemi che costantemente affligge gli appassionati di programmazione riguarda il re¬ 
perimento dei linguaggi e degli strumenti di sviluppo necessari per la messa a punto delle applicazioni desi¬ 
derate. In Italia infatti il numero degli sviluppatori di software su Apple Macintosh non è nemmeno lontana¬ 
mente paragonabile a quello di altri paesi, Stati Uniti in testa. La relativa esiguità della domanda ha quindi 
fatto sì che poche organizzazioni si interessassero attivamente dell'importazione e della distribuzione di pro¬ 
dotti di questo tipo (e tanto meno dello sviluppo). 

Ancora più sentita è la carenza relativa al supporto post-vendita, che nella stragrande maggioranza dei casi 
è del tutto inesistente. Accanto ai distributori ormai noti, come Bit & Bytes (Via S. Francesco d'Assisi 8, 
Milano tei. 02/8376207) e J.Soft (Via Rosellini 12, Milano tei. 02/6888228), sono da ricordare in particola¬ 
re il Software Shop (Corso 22 Marzo 33, Milano tel.02/7387444), molto aggiornato sulle ultime novità, 
che importa direttamente dagli Stati Uniti e la HI-TECH S.a.s. (Riviera Tiso da Camposampiero 26, Pado¬ 
va tei. 049/8750398), che oltre a mettere a disposizione un buon assortimento di tools e linguaggi offre an¬ 
che alcune iniziative in favore degli utenti, tra cui un bulletin board per l'assistenza tecnica e una newsletter 
con informazioni, recensioni e notizie specialistiche. 
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Il successo dei sistemi esperti è dovuto non solo alle prestazioni 
eccezionali che offrono, ma anche alla loro geniale architettura 
interna, che consente tempi di sviluppo fino a cinque volte inferiori. 
Ma non tutti sono uguali: ce ne sono all'indietro, in avanti, oppure... 

I sistemi esperti 


Nella puntata precedente abbiamo 
fatto la conoscenza con i sistemi e- 
sperti, analizzando soprattutto gli a- 
spetti concettuali e funzionali. Ci 
proponiamo, in questa puntata, di fa¬ 
re una breve introspezione in un si¬ 
stema esperto e osservare le proble¬ 
matiche tecniche. Ma non crediate di 
andare direttamente a livello di byte 
e di strutture dati! Il filone portante 
di tutta Tintelligenza artificiale è la 
conoscenza: il nostro punto di par¬ 
tenza sarà dunque la modalità di rap¬ 
presentazione della conoscenza. 

I filosofi e gli scienziati hanno in¬ 
dividuato diversi meccanismi di rap¬ 
presentazione della conoscenza: reti 
semantiche, frame, logica formale, 
regole di produzione eccetera. Vedia¬ 
mole brevemente: una rete semanti¬ 
ca è un insieme di nodi, che rappre¬ 
sentano oggetti, entità o eventi, con¬ 
nessi da archi, che rappresentano le 
loro correlazioni. 

Esempi di reti semantiche sono 
gli alberi genealogici, gli schemi di 
database, i grafi di classificazione de¬ 
gli animali. L'esercizio che abbiamo 
visto nella puntata precedente conte¬ 
neva una rete semantica relativa alle 
attitudini necessarie per poter fare un 
certo mestiere. 

I frame sono stati introdotti nel 
1975 da Marvin Minsky, padre del¬ 
l’intelligenza artificiale. Si tratta di 
strutture dati simili ai classici re¬ 
cord, che rappresentano le entità del 
problema e li descrivono attraverso 
attributi contenuti in slot. Ogni slot 
può essere vuoto o contenere un fat¬ 
to o puntare a un altro frame. Il mo¬ 
tore inferenziale dei sistemi esperti 
basati a frame non fa altro che per¬ 
correre i vari slot da un frame all’al- 
tro nell’intento di trovare la soluzio¬ 
ne del problema. 

La logica formale è forse la tecni¬ 
ca più onnicomprensiva per la rap¬ 
presentazione della conoscenza. Ov¬ 
viamente va molto al di là della sem¬ 


plice logica Booleana, in cui gli ope¬ 
ratori sono soltanto AND, OR e 
NOT. Nella logica cosiddetta dei pre¬ 
dicati, gli operatori possono essere 
anche l’implicazione e la quantifica¬ 
zione. Facciamo un esempio: se 
diciamo "l’erba è verde AND Roma 
è in Alaska” enunciamo una proposi¬ 
zione che può essere soltanto vera o 
falsa. Se invece dicessimo ”X è ver¬ 
de AND Y è in Alaska", formu¬ 
leremmo una espressione il cui valo¬ 
re di verità dipende dai valori di X e 
Y; nel caso in cui X valesse ’Terba" 
e Y valesse "lo Yucon", allora l’e¬ 
spressione sarebbe vera, ma se X fos¬ 
se "il copertone" e Y fosse "i cam¬ 
melli", l’espressione sarebbe falsa. 

Il tutto diventa più interessante se 
l’espressione contenesse una implica¬ 
zione, ad esempio: "X è in Alaska 
SE X è un fiume AND X nasce dai 
monti Endicott"; in questo caso un 
motore inferenziale potrebbe cercare 
tutti i possibili valori di X che renda¬ 
no vera quella espressione; in altre 
parole, cercare tutti i fiumi dell’Ala¬ 
ska. 

Un esempio più esauriente di 
rappresentazione della conoscenza 
mediante logica formale è già stato 
visto nelle puntate precedenti, a pro¬ 
posito del linguaggio Prolog. 

L'ultima e più diffusa tecnica di 


rappresentazione della conoscenza è 
quella basata su regole di produzio¬ 
ne. Si tratta di regole nella forma 
"SE condizione ALLORA afferma¬ 
zione”, da interpretare così: l'afferma¬ 
zione è in un primo tempo ignota; 
se però la condizione dovesse risulta¬ 
re vera, allora si deduce che anche 
l'affermazione è vera. Le regole di 
produzione sono chiamate così per¬ 
ché permettono di definire quale sta¬ 
to di cose viene prodotto se vengono 
soddisfatte le condizioni. Un sistema 
esperto basato su regole avrà una ba¬ 
se di conoscenza formata da una se¬ 
quenza di regole e un motore inferen¬ 
ziale che seleziona e applica le rego¬ 
le più opportune per risolvere il pro¬ 
blema in esame. Il numero di regole 
può essere usato come una sorta di 
misura delle dimensioni del sistema 
esperto, anche se non sempre ciò ha 
un effettivo significato (è come mi¬ 
surare un programma dal suo nume¬ 
ro di linee); in ogni caso una cosa è 
certa: un sistema esperto comincia a 
diventare significativo quando supera 
le 100 regole ed è considerato all'a¬ 
vanguardia quando supera le 500 re¬ 
gole. Si tenga pesente che il più 
grosso sistema esperto del mondo, 
XCON, contiene 3.200 regole, ma 
non le usa mai tutte e le scandisce 
in modo piuttosto semplice. 
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Figura 2. Struttura dati di un sistema esperto basato su regole. 


Le regole del gioco 

Passiamo dunque a un esempio di 
regole, traendo lo spunto dall’eserci¬ 
zio visto nella puntata precedente, 
che a sua volta trae spunto dal siste¬ 
ma esperto Sophos, uno dei più bril¬ 
lanti esempi di sistemi esperti picco¬ 
li ma ben congegnati (180 regole, 
150 domande, 20 conclusioni). 

• SE ti piace l’avventura spericolata 
E sei bravo a mentire E sai mantene¬ 
re un segreto ALLORA potresti fare 
l'agente segreto. 

• SE discenderesti il Nilo a bordo di 
una canoa E scalerrsti una montagna 
di 4000 metri ALLORA ti piace l’av¬ 
ventura spericolata. 

• SE sei capace di dire una bugia a 
qualcuno guardandolo negli occhi E 
hai fatto promesse a una donna sa¬ 
pendo di non poterle mantenere AL¬ 
LORA sei bravo a mentire. 

• SE sei bravo a mentire E hai mol¬ 
to sex-appeal ALLORA potresti fare 
il Playboy. 

Al di là di quello che è il particola¬ 
re significato di queste regole (peral¬ 
tro discutibile), osserviamo la strut¬ 
tura logica; si tratta di regole di que¬ 
sto tipo: 


se C e D allora A 
se F e G allora C 
se H e I allora D 


Osservate che la lettera C compare 
nella parte SE della prima regola, 
ma anche nella parte ALLORA della 
seconda regola. Questo è il modo 
con cui vengono concatenate fra di 
lóro le regole, per formare una suc¬ 
cessione gerarchica come quella rap¬ 
presentata in figura 1. Questa pren¬ 
de il nome di rete inferenziale ed è 
molto utile per evidenziare in modo 
grafico i legami fra le entità e le rela¬ 
tive modalità di scansione. 

Esistono, infatti, due modi di scan¬ 
dire una rete inferenziale: il concate¬ 
namento in avanti (detto anche for- 
ward chaining o event driven) e quel¬ 
lo all’indietro (backward chaining, 
goal driven). Vediamo per primo 
quello all’indietro: in questo caso il 
motore inferenziale parte dall’alto (re¬ 
lativamente alla figura 1, cioè dai no¬ 


di A e B) e si pone la seguente do¬ 
manda: sarà vero A? Per saperlo do¬ 
vrà vedere se C e D sono veri (infat¬ 
ti la regola diceva: ”se C e D allora 
A’’); ma per sapere se C è vero dovrà 
scendere a F e G; essendo questi gli 
ultimi nodi, non potrà scendere ulte¬ 
riormente, ma dovrà trovare i loro 
valori di verità in altro modo: o cer¬ 
cando in qualche data base o chieden¬ 
dolo direttamente all’utente ponendo¬ 
gli una apposita domanda. Analoga¬ 
mente dovrà procedere per H e I, e 
poi potrà tornare sui propri passi e 
dedurre i valori di C e D da qui, tor¬ 
nando ancora su, potrà dedurre anche 
il valore di A e presentarlo all’utente 
come risultato del suo ragionamen¬ 
to. Nel caso in cui il risultato non 
fosse soddisfacente, il procedimento 
verrà ripetuto per B, evitando di ri¬ 
percorrere rami già percorsi prima 
(D, H e I). 

Questo tipo di ragionamento si 
chiama all’indietro perché il punto di 
partenza è il risultato (nodi in alto) e 
tutto il lavoro serve per scoprire se è 
verificato o no. Notate che in un si¬ 
stema di questo tipo vengono poste 
delle domande all’utente. 


Fatti avanti, amico! 

L’altro modo di percorrere la rete 
inferenziale è in avanti: qui il moto¬ 
re inferenziale parte dal basso (nodi 
F, G, H,... in figura 1) e cerca di per¬ 
correre tutti i rami che può, andando 
verso l’alto (nodi C, D, A,...). Quan¬ 
do non è più in grado di percorrere al¬ 
cun ramo, il procedimento si ferma 
e viene presentato come risultato al¬ 
l’utente il nodo più in alto. Ad esem¬ 
pio, relativamente alla figura 1, sup¬ 
ponendo che inizialmente i nodi H, 
I, L e M siano noti e valgano Vero, 
il sistema si comporterà così: essen¬ 
do H e I veri allora anche D è vero, 
analogamente per E, ma non per C, 
poiché F e G non sono noti; a que¬ 
sto punto, essendo D ed E veri, an¬ 
che B risulterà vero, ma non A. Il ri¬ 
sultato da presentare all’utente sarà 
dunque B. Questo meccanismo si di¬ 
ce in avanti perché la soluzione del 
problema viene costruita partendo 
dal livello più basso (informazioni 
più elementari) e deducendo man ma¬ 
no conclusioni sempre più generali. 

Notate che il sistema non pone 
mai domande al’utente, ma utilizza 


RUN 

DIMMI QUALCHE FATTO NOTO (E TERMINA CON STOP): 

? DISCENDERESTI IL NILO A BORDO DI UNA CANOA 
? SCALERESTI UNA MONTAGNA DI 4000 METRI 
? SEI CAPACE DI DIRE UNA BUGIA A QUALCUNO GUARDANDOLO 
NEGLI OCCHI 

? HAI FATTO PROMESSE AD UNA DONNA SAPENDO DI NON POTER 
LE MANTENERE 
? STOP 

DA CIO’ CHE MI DICI DEDUCO CHE: 

TI PIACE L’AVVENTURA SPERICOLATA SEI BRAVO A MENTIRE 
POTRESTI FARE L’AGENTE SEGRETO 


Figura 3. Esempio di esecuzione di un sistema esperto "in avanti”. 
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10 

DIM R$ (10,2) ,F$ (50) 


20 

R$(0,0) = "DISCENDERESTI IL N 

ILO A BORDO DI UNA CANOA" 

30 

R$ (0,1) = "SCALERESTI 

TAGNA DI 4000 METRI" 

UNA MON 

40 

R$ (0,2) = "TI PIACE L 
RA SPERICOLATA" 

• AWENTU 

50 

R$(1,0) = "SEI CAPACE 

DI DIRE 


UNA BUGIA A QUALCUNO 
DOLO NEGLI OCCHI" 

GUARDAN 

60 

R$(l,l) = "HAI FATTO 

PROMESSE 


AD UNA DONNA SAPENDO 
POTERLE MANTENERE" 

DI NON 

70 

R$ (1,2) = "SEI BRAVO . 
E" 

R$ (2,0) = "SEI BRAVO . 

A MENTIR 

80 

A MENTIR 

90 

Cj 

R$ (2,1 ) = "TI PIACE L'AWENTU 


RA SPERICOLATA" 


100 

R$ (2,2) = "SARESTI STATO UN 
PERFETTO AGENTE SEGRETO" 

110 

RX = 2 : FX = - 1 


120 

PRINT "DIMMI QUALCHE 

FATTO N 


OTO (E TERMINA CON ' 

STOP')" 

130 

INPUT Vl$ 


140 

IF Vl$ = "STOP" GOTO 

180 

150 

FX = FX + 1 


160 

F$ (FX) = Vl$ 


170 

GOTO 130 


180 

PRINT 


190 

PRINT "DA CIO' CHE MI DICI, 


DEDUCO CHE:" 


200 

VI = FX 


210 

FOR RU = 0 TO RX 


220 

FOR FA = 0 TO FX 


230 

IF F$(FA) = R$(RU,0) 

GOTO 26 

240 

Q 

NEXT FA 


250 

GOTO 330 


260 

FOR FA » 0 TO FX 


270 

IF F$(FA) = R$(RU,1) 
n 

GOTO 30 

280 

u 

NEXT FA 


290 

GOTO 330 


300 

FOR FA = 0 TO FX 


301 

IF F$(FA) = R$(RU,2) 

n 

GOTO 33 

302 

u 

NEXT FA 


303 

PRINT R$(RU,2) 


310 

FX = FX + 1 


320 

F$(FX) = R$(RU,2) 


330 

NEXT RU 


340 

IF VI C > FX GOTO 200 

350 

END 



Figura 4. Listato Basic 

di un sistema esperto Forward 

chaining basato su regole. 

come può le informazioni note a 
priori. Passiamo ora al pratico e ve¬ 
diamo come implementare in Basic 
un sistemino di deduzione in avanti 
basato a regole. La scelta di un siste¬ 
ma in avanti anziché all’indietro ha 
due motivi: innanzitutto abbiamo 
già visto nella precedente puntata un 
sistema consultativo, cioè che pone 
domande all’utente, mentre non ab¬ 
biamo ancora visto un sistema em- 
bedded, cioè che ragiona in silenzio; 
in secondo luogo, un sistema in a- 
vanti è più semplice, perché quelli 
alfindietro richiedono la ricorsività 
(che il Basic non ha). In figura 2 è 
rappresentata la struttura dati basila¬ 
re per memorizzare le regole: si trat¬ 
ta di una matrice R$ in cui ogni riga 
rappresenta una regola e le prime 


due colonne contengono la parte SE 
mentre la terza contiene la parte AL¬ 
LORA. Per esempio, la regola 


se C e D allora A 


verrà così memorizzata (supponendo 
che sia la 0-esima regola): 


R$(0,0)="C" 

R$(0,1)=”D” 

R$(0,2)=”A” 


Oltre a quella delle regole è neces¬ 
saria un’altra struttura dati per memo¬ 
rizzare le informazioni relative al ca¬ 
so in esame, cioè i cosiddetti fatti 
noti. Per capire intuitivamente il si¬ 
gnificato di questa struttura, si im¬ 
magini un sistema esperto in medici¬ 
na: qui per i fatti noti conteranno i 
sintomi del paziente, che variano di 
volta in volta; ad esempio, per chi 
ha l'influenza sono note febbre, nau¬ 
sea, tosse, mentre per chi ha il raf¬ 
freddore da fieno i fatti sono occhi ar¬ 
rossati, la primavera eccetera. In un 
sistema in avanti, devono essere no¬ 
ti a priori alcuni fatti, da cui partire 
per dedurre altri fatti, scandendo le 
regole. In figura 4 notate all’inizio 
il dimensionamento degli array R$ e 
F$, rispettivamente per le regole e 
per i fatti noti. Seguono alcune istru¬ 
zioni per riempire R$ con qualche re¬ 
gola (nell'esempio sono solo tre, ma 
potrebbero essere quante vogliamo) 
e poi segue un ciclo in cui vengono 
chiesti all'utente i fatti noti a priori 
(da terminare con Stop). A questo 
punto inizia il vero meccanismo di 
concatenamento in avanti, che suona 
così: si scandiscono tutte le regole 
(FOR RU=0 TO RX) e, una per 
una, si verifica se sono applicabili, 
cioè se la loro parte SE è nei fatti 
noti; in caso positivo, la regola vie¬ 
ne applicata, cioè viene stampata la 
parte ALLORA e inserita nei fatti 
noti. Tutto questo procedimento vie¬ 
ne ripetuto perché l’applicazione di 
alcune regole può rendere applicabile 
altre regole che in un primo tempo 
non lo erano; il tutto termina quan¬ 
do non è più applicabile alcuna rego¬ 
la, cioè quando è stato fatto un inte¬ 
ro ciclo senza aver aggiunto alcun 
fatto noto. 

Gli ingegneri 
della conoscenza 

In figura 3 vediamo un esempio 
di esecuzione di questo programma: 


notate che l'utente fornisce alcuni fat¬ 
ti iniziali e il sistema deduce tutto 
quello che può su di essi. A chi fos¬ 
se interessato a sviluppare ulterior¬ 
mente questo esercizio, consigliamo 
di aggiungere altre regole osservando 
una struttura come quella di figura 
1, cioè formando alcuni alberi (non 
necessariamente bilanciati né di pari 
profondità) con alcuni nodi in comu¬ 
ne. Quando la rete inferenziale con¬ 
terrà una trentina di regole significa¬ 
tive (cioè non campate per aria) strut¬ 
turate in modo da avere almeno una 
decina di radici, una ventina di nodi 
intermedi e una trentina di foglie 
(non necessariamente di pari livel¬ 
lo), allora comincerà a diventare inte¬ 
ressante vedere cosa potrebbe dedurre 
il sistema quando gli venissero forni¬ 
ti una decina di fatti noti a priori. 

L'aspetto più interessante di que¬ 
sto esercizio sarà il fatto che per con¬ 
cepire le regole non dovete affatto 
preoccuparvi di come il sistema le u- 
tilizzerà e in quale ordine: questo lo 
deciderà lui quando sarà in esecuzio¬ 
ne; voi preoccupatevi soltanto di e- 
nunciare regole che abbiano un sen¬ 
so nel settore che avete scelto. Per e- 
sempio, se avete scelto il settore del¬ 
la diagnostica automobilistica una re¬ 
gola potrebbe essere: 

•SE il motore non parte E le luci si 
accendono ALLORA non è un pro¬ 
blema di batteria. 

Nel campo economico-fiscale, in¬ 
vece, una regola potrebbe essere: 

•SE il reddito non supera tot E si 
tratta di lavoro dipendente ALLORA 
hai diritto alla tal detrazione. 

Un consiglio: scegliete un campo 
ristretto e ben delimitato prima di 
scrivere le vostre regole; altrimenti 
vi troverete nell'oceano con una bar¬ 
ca a remi. Campi che vanno bene so¬ 
no: un settore specialistico della me¬ 
dicina, un ramo particolare dell’eco¬ 
nomia, la diagnostica di un particola¬ 
re macchinario, l'analisi di candidati 
per un particolare mestiere, la prepa¬ 
razione di cocktail, la scelta della 
moto da comprare. Campi in cui a - 
vreste problemi sono: tutta la medi¬ 
cina, i problemi finanziari in genere, 
i rapporti sociali, il galateo, le fiabe 
per bambini, la letteratura italiana ec¬ 
cetera. Lo studio dei campi più op¬ 
portuni e delle relative modalità di e- 
splicitazione della conoscenza prende 
il nome di ingegneria della conoscen¬ 
za. 

Alessandro Mazzetti 

(fine) 
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Un'utility per il DOS 3.3 

I computer della serie Apple II hanno alcune loca¬ 
zioni di memoria che contengono interessanti dati re¬ 
lativi al programma che in quel momento sta giran¬ 
do: lunghezza del programma stesso, locazione della 
memoria alla quale parte e termina, ultimo drive in 
funzione, ultima variabile utilizzata, quantità di me¬ 
moria a disposizione. 

Per avere sottomano queste utili indicazioni occor¬ 
re fermare il programma, ricordarsi quali sono le loca¬ 
zioni di memoria che occorre leggere e scrivere qual¬ 
che istruzione PEEK e POKE. Per evitarvi questo 
noioso lavoro, pubblichiamo un breve programma 
che contiene tutte queste istruzioni. 

Aggiungete tutto o parte del listato sotto indicato, 
alla fine del vostro programma che volete analizzare 
o anche a un certo punto del programma stesso, e a- 
vrete sul monitor questi utili dati. 


Listato per la lettura delle locazioni dì memoria 

10 TEXT : CALL - 93 6: CLEAR 

20 C$(0) = "":C$(1) = "$":C$(2) = :PR - 1: 

SPEED= 200 

30 PRINT : PRINT " QUESTO PROGRAMMA INIZIA A "; P 
EEK (103) + PEEK (104) * 256 
40 PRINT : HTAB 18: PRINT "TERMINA A "; PEEK (175 
) + PEEK (176) * 256 

50 PRINT : PRINT "LA SUA LUNGHEZZA E* ";( PEEK (1 
75) + PEEK (176) * 256) - ( PEEK (103) + PEE 
K (104) * 256);" BYTES" 

60 POKE 768, PEEK (129): POKE 769, PEEK (130):V1 
= PEEK (768):V2 = PEEK (769):VT = (VI > V2) 

+ (V2 > 127) 

70 PRINT : PRINT "L'ULTIMA VARIABILE USATA E* (" 
CHR$ (VI) CHR$ (V2)C$(T)")" 

80 PRINT : PRINT "SPEED= ";256 - PEEK (241) 

90 PRINT : PRINT "DISK VOLUME "; PEEK (46017);" I 
N SLOT "; PEEK (43626);"/DRIVE "; PEEK (43624) 
100 IF PEEK (64435) = 6 THEN PRINT : PRINT "LA 
QUANTITÀ' DI MEMORIA E' DI CIRCA 64K";: GOTO 
120 

110 PRINT : PRINT "LA QUANTITÀ' DI MEMORIA E* ";( 
PEEK (978) + 35) / 4;"K" 

120 VTAB 19: HTAB 1: PRINT "REGOLAZIONE PADDLE (0 
)- ( 1 > = 

130 VTAB 19: HTAB 24: PRINT PDL (0): VTAB 19: HT 
AB 33: PRINT PDL (1) 

140 PRINT : PRINT : HTAB 8: INVERSE : PRINT "PREM 
ERE BARRA SPAZIO PER FINIRE": NORMAL 
150 IF PEEK ( - 16384) = 160 GOTO 170 
160 POKE - 16336,0: GOTO 120 
170 SPEED= 255: TEXT 


Fogli protocollo con stampanti ad aghi 

L'incremento della spaziatura orizzontale con stam¬ 
panti Apple è determinata in pollici. 

E' però possibile selezionare una spaziatura tale per 
cui, preso un foglio protocollo (con spaziatura tra le 
righe di 1 centimetro), quanto stampato sulla pagina 
sia sempre compreso tra le due righe, e non vada mai 
a sovrapporsi a una di esse. 

Tale spaziatura è espressa in 144 mi di pollice. A- 
tualmente le possibilità di ottenere tale risultato sono 
due: da programma Basic Applesoft (sia in ambiente 
DOS 3.3 che ProDos) e da Applewriter II. 

Quanto affermato è valido sia per la vecchia Apple 
Dot MAtrix Printer che per la Imagewriter con carrel¬ 
lo da 10" o da 15". Va sottolineato che non è possibi¬ 
le inserire un foglio aperto nella ImageWriter 15". 


• Spaziatura in centimetri da programma 
Basic. 

Il programma Basic (il listato è in basso), permette 
di ottenere i migliori risultati selezionando un line fe- 
ed di 57/144". 

• Spaziatura in centimetri da AppleWriter. 

Per regolare la giusta spaziatura da AppleWriter, 
bisogna inserire all'inizio del testo il seguente codice: 


CTRL V ESC T57 CTRL V 


La lettera T deve essere assolutamente inserita in 
maiuscolo e non in minuscolo. 

• Spaziatura in centimetri da AppleWorks. 

Per regolare la giusta spaziatura da AppleWorks (o 
Tre per te), occorre definire una nuova stampante con 
la seguente procedura: 


Menù Base - scegliere opzione n.5 - Altre Attività 
Altre Attività - scegliere opzione n.7 - Specifica In¬ 
formazioni sulla Stampante 

Scelta Stampante - scegliere opzione n.2 - Aggiungi 
Stampante 

(nel caso abbiate già 3 stampanti definite, occorre eli¬ 
minarne una) 

Aggiungi Stampante - scegliere opzione 12 - Altra 
Stampante: 

- dare un nome alla nuova stampante e regolare tutte 
le altre opzioni uguali alle opzioni della stampante in 
uso. 

Ad esempio, per l'ImageWriter 80 colonne: 

Slot 1 

Avanzamento carta NO 
Comando Salto Pagina SI 
Stop Fine Pagina NO 
Larghezza carta 8,0 pollici 
Scheda Interfaccia CONTOL-I 80N 


Riguardo ai Codici Stampante, occorre fare una pre¬ 
cisazione: in questa opzione occorre scegliere un codi¬ 
ce, tra quelli elencati, che verrà utilizzato unicamente 
come controllo di LineFeed (noi abbiamo scelto Pedi¬ 
ce-Inizio Pedice). Scelto il codice, si inserice il carat¬ 
tere di controllo ESC (premendo il tasto ESCAPE) 
T57. Si ritorna quindi al Menù principale per la stam¬ 
pa del testo. All’inizio del testo stesso va inserito il 
codice scelto per l'interlinea del foglio protocollo e, 
quando si va in stampa, occorre scegliere la propria 
stampante definita in precedenza. 


Listato per la stampa da Basic 

10 D$ = CHR$(4) 

20 PRINT D$; "PR#1" : REM Attiva la-stampante 
30 PRINT CHR$(27);CHR$(84) ;"57" : REM Invia codice 
alla stampante ESC T57 

40 FOR I = 1 TO 20 : REM Scrive 20 righe 
50 FOR J = 65 TO 122 

60 PRINT CHR$(J); : REM Invia le lettere dell'alfa¬ 
beto alla stampante 
70 NEXT J 
80 PRINT 
90 NEXT I 

100 PRINT D$; "PR#0" 

110 END 
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Excel e Lotus 1-2-3 

Molto interessante è la possibilità di passare dati 
da Excel per Macintosh a Lotus 1-2-3 per PC Ibm e 
viceversa, soprattutto grazie alla loro quasi identità di 
elaborazione dei dati. 

• Da Lotus 1-2-3 a Excel. Per trasferire un file 
creato con Lotus 1-2-3 a Excel serve innanzitutto del 
buon software di comunicazione (per esempio PC to 
Mac and back o MacTerminal) che permette la tra¬ 
smissione del documento tra un PC Ibm o compatibi¬ 
le e Macintosh; in tal modo si trasporta il file creato 
con Lotus 1-2-3 e salvato in formato WKS su Mac. 
Successivamente si lancia Excel e dal menù File si 
sceglie l'opzione Open, da cui si carica il file appena 
trasferito. Normalmente Excel non converte: 

- divisioni del foglio in pannelli; 

- indicazioni delle celle selezionate al momento del 
salvataggio in Lotus; 

- grafici; 

- macro. 

Se Excel incontra una formula che non può conver¬ 
tire, visualizza una finestra di dialogo che segnala l'er¬ 
rore e le coordinate della cella che contiene tale formu¬ 
la. La finestra di dialogo contiene due opzioni: la pri¬ 
ma, Show all, fa visualizzare la finestra ogni volta 
che Excel incontra una formula che non può converti¬ 
re; la seconda, Show total, visualizza, una volta ter¬ 
minato il caricamento del file, una finestra con il nu¬ 
mero globale delle formule non trasferite. 

• Da Excel a Lotus 1-2-3. Per trasferire un do¬ 
cumento da Excel a Lotus 1-2-3 si deve salvare il fo¬ 
glio creato da Excel, attraverso l'opzione Registra col 
Nome dal menù Archivio, in formato WKS. In tal 
modo si registrerà il documento Excel in un formato 
simbolico riconoscibile da Lotus. Come nel caso pre¬ 
cedente, anche qui è necessario del software di comu¬ 
nicazione per passare il file in ambiente MS-DOS. 
Normalmente Lotus 1-2-3 non converte: 

- Formule contenenti come risultato valori di testo; 

- riferimenti a selezioni multiple; 

- riferimenti a righe con numerazione maggiore di 
2048; 

. - nomi di selezioni multiple; 

- funzioni specifiche di Excel. 

Telecomunicare 

Per comunicare via computer e accedere alle banche 
dati è necessario il giusto software. I pacchetti oggi 
disponibili sul mercato sono molti, e tutti di discreta 
qualità. A questa nutrita schiera se ne è aggiunto un 
altro: Telescape. Questo programma consente di lavo¬ 
rare su Macintosh nel campo delle trasmissioni dati 
in maniera veramente completa e professionale. Tre 
sono i livelli di utilizzo: 

• Emulazione di Terminale 

• Trasmissione Dati 

• Posta Elettronica. 

Nel primo caso il programma è predisposto per e- 
mulare su Mac una serie veramente consistente di vi¬ 
deoterminali, come VT100, VT52, VT52A, Orion, 
Zenith, Televideo 900, 910, 925 e 9000, e altri anco¬ 


ra. L'uso di questa procedura è molto semplice: basta 
selezionare l'opzione Terminal; a questo punto com¬ 
pare una finestra di editing su cui si possno predispor¬ 
re, attraverso semplici comandi, le regolazioni dei ca¬ 
ratteri di controllo del terminale che si desidera. Una 
volta effettuata questa operazione, si è pronti per col¬ 
legarsi nella rete di qualsiasi mainframe e utilizzare 
Macintosh come un video terminale intelligente. 

Ovviamente tutto ciò che scorre sul video viene re¬ 
gistrato in un file buffer su disco, ed è possibile, 
sempre a video, rivedere le informazioni desiderate e, 
attraverso le funzioni tipiche di Mac, Taglia e Incol¬ 
la, trasferirlo nei programmi desiderati. 

Per quanto riguarda la parte relativa alla Trasmissio¬ 
ne Dati e alla Posta Elettronica, il programma è cura¬ 
to nei minimi dettagli. 

Oltre alle normali opzioni di regolazione della velo¬ 
cità di trasmissione, protocollo, effetti a video, si 
può utilizzare un macrolinguaggio in grado di esegui¬ 
re automaticamente le funzioni memorizzate. E' pos¬ 
sibile per esempio, velocizzare le operazioni di solito 
necessarie per il collegamento con una qualsiasi ban¬ 
ca dati a cui si è abbonati: comporre il numero di tele¬ 
fono, commutare il modem sulla trasmissione dati, 
inviare il messaggio di Login o Contatto, il proprio 
Address o Nominativo e infine la relativa Password o 
chiave d'accesso al sistema; questa procedura diviene, 
con il macro linguaggio di Telescape, una semplice 
combinazione di tasti, come potrebbe essere Shift- 
Command-S, che viene memorizzata all’inizio e, una 
volta attivata, eseguirà sempre automaticamente le o- 
perazioni, inclusa la chiamata telefonica se il modem 
è predisposto per l'auto-Dial. Il prodotto è oltremodo 
facile da adoperare, e la documentazione che lo accom¬ 
pagna, pur essendo in lingua inglese, è estremamente 
chiara ed esauriente. 

Per maggiori informazioni rivolgetevi al vostro ri¬ 
venditore di fiducia, oppure alla Clow System 
School di Milano (tei. 02/2711714). 

Macintosh come terminale Ibm 

Poiché il numero di minicomputer IBM della serie 
3X è assai elevato in Italia, sempre più spesso grandi 
aziende si dotano di Macintosh per risolvere problemi 
di informatizzazione locale, e chiedono di poterli usa¬ 
re anche come terminali dei loro minicomputer. Per 
far ciò bisogna dotarsi di un convertitore di protocol¬ 
lo e di un programma di trasmissione dati. Per quan¬ 
to concerne il software il problema si riduce alla scel¬ 
ta degli svariati programmi a disposizione in commer¬ 
cio; invece per quanto riguarda il convertitore deve es¬ 
sere in grado di assolvere a tre primarie funzioni: 

• Convertire elettricamente e logicamente il flusso di 
segnali dal protocollo sincrono (sul 3X IBM) al 
protocollo asincrono seriale RS-232 del Mac. 

• Trasformare i dati dal formato EBCD sul mini in¬ 
formato ASCII sul Macintosh. 

• Assicurare la compatibilità con i tasti funzione che 
il mini si aspetta di trovare. 

Per maggiori informazioni rivolgetevi al vostro ri¬ 
venditore di fiducia, oppure alla Clow System Scho¬ 
ol di Milano (tel.02/2711714). 
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Non c'è, prova 
da un'altra parte 

Utilizzo il Tre per Te 
principalmente nelle se¬ 
zioni di word processing 
(per scrivere lettere circo¬ 
lari o memorizzare testi 
significativi) e di data ba¬ 
se (per catalogare e archi¬ 
viare tutto di tutto). Sfor- 
tunamente giorni addietro 
ho inavvertitamente aper¬ 
to lo sportello del drive 
mentre il disco con Ap- 
pleworks (in unico esem¬ 
plare) perfezionava (sup¬ 
pongo) l’aggiornamento 
del catalogo, dopo una ar¬ 
chiviazione. Al successi¬ 
vo tentativo di accesso al 
disco dati, Tre per Te ri¬ 
spondeva con "trovato un 
errore w lettura dk drive 
2: riprova, prova da un'al¬ 
tra parte". Non è più sta¬ 
to possibile leggere o 
scrivere sul disco dati, né 
elencare i file presenti. Il 
locksmith 50, interpella¬ 
to in merito, non riusci¬ 
va a leggere la traccia 00 
e presentava un asterisco 
in corrispondenza di tale 
traccia (lettura non riusci¬ 
ta) nella fase verify disk 
della sezione U (16 sec- 
tors Utilities). Sempre il 
locksmith, in fase di co¬ 
piatura del disco dati, leg¬ 
geva e copiava (mi sem¬ 
bra dopo 7 giri) la traccia 
00. Il disco copia del di¬ 
sco dati non dava più pro¬ 
blemi nella fase verify di¬ 
sk e, altra ingenuità, ve¬ 
niva da me sovrapposto 
al vecchio disco dati. 
Non ha avuto successo 
nessun tentativo di acces¬ 
so ai dati sovrapponendo 
alla traccia 00 la traccia 
00 di altri dischi dati. Mi 
son procurato copie dei 
dischetti (utili al caso?) 
di: Dos, 3.3 System Ma¬ 
ster, Dos Tool Kit, Dos 
3.3 con Utilities (inspec- 
tor/watson), Prodos Ma¬ 
chine Language Interface 
(ma come funziona?). 
L’unico programma che 
mi fa sperare è il Wat¬ 


son, col quale leggo il di¬ 
sco dati settore per setto¬ 
re: ma le lettere maiusco¬ 
le nell'ordine compaiono 
come ecc. 

Naturalmente non è pos¬ 
sibile chiamare i file del 
disco dati per la conver¬ 
sione in Dos (sarebbero 
maggiormente leggibili). 
Ho dunque perso irrime¬ 
diabilmente tutti i miei 
file di lavoro oppure ho 
qualche speranza? Devo 
procurarmi altri dischetti 
di Utilities? 

V. Benvestito 
Bari 

E'difficile fare una dia¬ 
gnosi a distanza e trovare 
una soluzione. Pensiamo 
purtroppo che i suoi dati 
siano irrimediabilmente 
persi, soprattutto dopo 
un'operazione di ricopia¬ 
tura sullo stesso disco. 
In questi casi occorre fare 
una copia del disco con il 
file illeggibile, e lavorare 
sulla copia tentando di ri¬ 
costruir elapar ter ovinata 
del file con dei program¬ 
mi che permettano la let¬ 
tura, la modifica e la 
scrittura dei settori di un 
disco inProDos cercando 
di capire, analizzando un 
breve file senza errori, co¬ 
me vengono memorizzati 
i dati sul disco. Nella ru¬ 
brica AppliHelp del n. 
35 di Applicando a pag. 
97 abbiamo pubblicato 
un breve listato che per¬ 
mette di analizzare un di¬ 
sco in ProDos. 

Proprio tutto 
sui modem 

Sono un vostro abbo¬ 
nato e vorrei sapere tutto 
sul collegamento via mo¬ 
dem: che cosa ci vuole, 
quale modem mi consi¬ 
gliate (ho un Apple II e), 
dove acquistare quanto 
serve (qui a Bergamo, se 
è possibile) e naturalmen¬ 
te quanto costa il tutto. 

Giampiero Butti 
Bergamo 


Le consigliamo di leg¬ 
gere l'articolo sui modem 
pubblicato sul n. 9 di Ap¬ 
plicando a pag. 13. 

Se ne fosse sprovvi¬ 
sto,può richiedere l'arre¬ 
trato al nostro ufficio Ab¬ 
bonamenti. 

Parliamo di 
Apple llGS 

Da quando quando ho a- 
vuto il mio primo Apple 
(4 anni fa), compero la 
vostra rivista puntual¬ 
mente ogni mese perché 
la considero fondamenta¬ 
le sia per chi comincia ad 
affacciarsi sul pianeta Ap¬ 
ple e sia per chi, già ad¬ 
dentro, desidera allargare 
le proprie conoscenze di 
queste prestigiose mac¬ 
chine. 

Agli inizi di dicembre 
ho venduto il mio buon 
Apple Ile, optando per il 
nuovo IIGS che ritengo 
semplicemente meravi¬ 
glioso sotto ogni aspet¬ 
to. 

Desidererei, quindi, a - 
vere informazioni più ap¬ 
profondite di quelle espo¬ 
ste sui manuali allegati 
al computer e cioè: 

1) come si gestisce il 
suono e la super alta riso¬ 
luzione grafica; 

2) quali manuali parlano 
del IIGS e dove li posso 
reperire; 

3) se ci sono già in circo¬ 
lazione programmi che 
sfruttano queste capacità 
del IIGS; 

4) quando dedicherete an¬ 
che voi delle pagine al 
IIGS. 

Una piccola scoperta 
che ho fatto sul IIGS (for¬ 
se lo saprete già) è la pos¬ 
sibilità di cambiare il 
prompt del cursore: pre¬ 
mendo il tasto control e 
contemporaneamente il 
tasto A (elevazione a po¬ 
tenza) e successivamente 
un qualsiasi tasto, il vec¬ 
chio quadratino a punti 
cambierà forma con l’ulti¬ 
mo tasto premuto. L'ef¬ 


fetto cesserà con un con¬ 
trol reset. 

Angelo Lasara 
Matera 

Dal n. 30 della rivista 
abbiamo iniziato una se¬ 
rie di articoli sul IIGS e 
sulla compatibilità del 
software e dell'hardware 
attualmente in commer¬ 
cio per la serie II, e dei 
nuoviprogrammiprepara- 
ti e in preparazione per il 
IIGS. Su Applicando d'o¬ 
ra in poi potrà sempre 
trovarearticolierecensio- 
ni dedicati al suo compu¬ 
ter. Anche i problemi 
che ci ha elencato verran¬ 
no un po' alla volta af¬ 
frontati. 

Basta leggere 
Applicando 

Sono interessato, se 
fosse possibile, a riceve¬ 
re senza impegno un cata¬ 
logo del software che ave¬ 
te disponibile per il com¬ 
puter Apple Ile, in modo 
particolare per quanto ri¬ 
guarda programmi per 
produrregrafici, istogram¬ 
mi, grafici a torta, possi¬ 
bilmente in ProDos e in¬ 
tegrabili con l'AppleWor- 
ks. 

Fabio Cecchin 
Quinto (TV) 

Sono un lettore della 
vostra rivista Applican¬ 
do . 

Da alcuni mesi ho in 
dotazione il computer Ap¬ 
ple Ile e vorrei avere da 
voi le informazioni ri¬ 
guardo alla formattazione 
di questa macchinà que¬ 
sto impianto. 

Gian Paolo Bruno 
Martina Franca (TA) 

Tutto il software dispo¬ 
nibile per Apple II è elen¬ 
cato nell'apposita rubrica 
Disk Service, nelle ulti¬ 
me pagine della rivista. 
Tutto ciò che riguarda la 
formattazionedeidischet- 
ti, invece, è elencato nel- 
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Una precisazione 

Neirapplicazione Conto Corrente per AppleWorks pubblicata sul numero 
34 a pag. 90 le indicazioni date per il trasferimento da spreadsheet a database 
sono relative alla versione del programma in italiano. Chi ha la versione ori¬ 
ginale in inglese potrebbe trovarsi in difficoltà nell'interpretazione dei coman¬ 
di relativi; quindi riassumiamo brevemente le operazioni da effettuare: 

una volta terminato l'inserimento dei dati nello spreadsheet e salvati gli 
stessi su disco, occorre stamparli in un FILE DIF su disco. Quindi, sceglien¬ 
do da menù principale di lavorare con un data base, si utilizza l'opzione da FI¬ 
LE DBF. Si cancellano le categorie che non servono, e il gioco è fatto. 


la parte terminale della 
rubrica ".Per chi comin¬ 
cia " in in tutti i numeri 
della rivista. 

Stampare 
su carta bollata 

Posseggo un Apple Ile 
e una ImageWriter, e ho 
un problema che potreb¬ 
be riguardare parecchie 
categorie di professioni¬ 
sti: non riesco a trovare i 
parametri giusti per stam¬ 
pare su carta bollata. Se 
uso l’AppleWriter con la 
doppia spaziatura restano 
pochi millimetri a sfalsa¬ 
re le righe stampate dalle 
linee della carta; con Ap- 
pleworks poi (con il qua¬ 
le sto scrivendo adesso e 
che uso abitualmente) 
non sono proprio riusci¬ 
to a trovare i valori giu¬ 
sti. 

Vincenzo Mandese 
Taranto 

Su questo stesso nume¬ 
ro della rivista, nella ru¬ 
brica AppliHelp a pag. 
91, troverà i controlli ne¬ 
cessari da inserire sia nel- 
rApplewriter, sia nell.Ap- 
pleworksper stampare su 
carta bollata. 

In entrambi i program¬ 
mi occorre poi regolare il 
numero delle righe a 24 e 
mettere i margini Alto e 
Basso a zero. Per Apple- 
works occorre regolare la 
lunghezza del foglio, nel 
caso di 6 righe per polli¬ 
ce , a 4 pollici. 

L'abc 

dell'Apple Ile 

Da poco tempo mi so¬ 
no avvicinato al compu¬ 
ter: ho comprato un Ile 
(ne sono entusiasta) e sto 
cominciando a leggere di¬ 
versi libri sulla program¬ 
mazione. Sono ancora al- 
l'ABC, anzi alla A e vi 
chiedo, se è possibile, di 
darmi un importante (per 
me) suggerimento. 

Ho provato a introdur¬ 


re il programma INVE- 
STOR, ma una volta 
comparso il menù princi¬ 
pale non va oltre in quan¬ 
to, quando cerco di chia¬ 
mare le diverse opzioni 
(escluso la G): A, P ecc, 
mi individua un ERRO¬ 
RE N77 alla linea 2880. 

Potete darmi un sugge¬ 
rimento per evitare di do¬ 
ver ricontrollare tutte le 
righe del listato? 

Fiorenzo Bisenghi 
Castelnuovo (RE) 

ERRORE N.77 signifi¬ 
ca OUT OF MEMORY: 
oltre la memoria disponi¬ 
bile del computer. Sce¬ 
gliendo un'opzione diver¬ 
sa da G, il programma ef¬ 
fettua l'istruzione alla li¬ 
nea 2880 dove si dimen¬ 
sionano delle matrici con 
l'istruzione DIM; vale a 
dire viene predisposto del¬ 
lo spazio nella memoria 
delcomputerattaariceve- 
re i dati necessari da ela¬ 
borare. Se il dimensiona¬ 
mento supera la memoria 
a disposizione, avviene 
l'errore da lei segnalato. 
Controlli attentamente 
alle righe 2880 e 2810 
che le istruzioni DIM sia¬ 
no state introdotte esatta¬ 
mente con i valori indica¬ 
ti nel listato a pag. 51. 

<PR#0> 

non va in diretta 

Gradirei sapere da voi 
qual è il sistema più rapi¬ 
do per poter acquistare il 
seguente materiale, pre¬ 
messo che ho permutato 
il mio AppleII+ con un 


Apple IIGS: 

1) PRODOS USER'S 
KIT 

2) APPLE PROGRAM¬ 
MERÀ KIT con APA 
per prodos 

Approfitto per dirvi 
che l'oneliner 156 pubbli¬ 
cato su Applicando di feb¬ 
braio non può funziona¬ 
re, in quanto i comandi ti¬ 
po <PR#0> non posso¬ 
no essere dati in forma di¬ 
retta. Infine un altro pro¬ 
blema: ho cercato di tra¬ 
sportare su un disco da 
3.5 pollici il disco DOU- 
BLEBOOT, ma ciò non 
è possibile con il FILER 
in quanto tale program¬ 
ma non accetta trasferi¬ 
menti tra i dischi che si 
trovano in slot differenti. 
Allora ho tentato di ini- 
zializzare il disco da 3.5 
pollici con il dischetto 
MOUSE SK 2.0 e poi 
ho lanciato il programma 
DOUBLER dopo aver 
modificato il valore di u- 
na locazione, in modo da 
far effettuare la modifica 
sul disco collegato allo 
slot N. 5 anziché su quel¬ 
lo collegato allo slot N. 
6; tutto sembrava funzio¬ 
nare bene, perciò ho tra¬ 
sferito sul disco gli altri 
programmi necessari al 
doppio boot; però, quan¬ 
do ho dato il <PR#5>, è 
comparsa regolarmente la 
scritta <Sto caricando il 
Prodos> e tutto è finito 
con il blocco del siste 
ma. Potete darmi qualche 
suggerimento in proposi¬ 
to? 

G. Famulari 

Lipari (ME) 


Il sistema operativo 
ProDos e i relativi ma¬ 
nuali si possono acquista¬ 
re presso tutti gli Apple 
Center. 

L'one liner da lei citato 
funziona bene così come 
è stato scritto. Sulla rivi¬ 
sta era indicato 'funziona 
solo su Apple Ile e Ile 
con interfaccia mouse"; 
quindi sul IIGS non fun¬ 
ziona. La compatibilità 
dei programmi attual¬ 
mente in commercio per 
la linea II non è totale 
con il IIGS, come da noi 
indicato su Applicando 
N. 34, ma al 90%. 

E' più corretto dare l'i¬ 
struzione per l'attivazio¬ 
ne delle schede periferi¬ 
che nella versione PRIN- 
T CHR$(4) ; "PR#1 ", ma 
viene anche accettata nel¬ 
la forma diretta come in¬ 
dicato nell'one liner 156. 

Altra cosa della quale 
probabilmente non è sta¬ 
to informato quando ha 
acquistato il suo Apple 
IIGS è che il drive da 3.5 
non può essere utilizzato 
con il DOS 3.3 attual¬ 
mente in commercio, ma 
solo con il ProDos e il 
Pascal 1.3. 

Il programma DOU - 
BLEBOOT non può fun¬ 
zionare con un drive da 
3.5 pollici sia per il pro¬ 
blema suddetto sia perché 
la routine che riserva spa¬ 
zio sul disco per i pro¬ 
grammi in DOS è stata 
congegnata per un disco 
da 5 pollici e 114 e non 
può ricreare la stessa 
mappa di memoria su un 
disco da 3.5 pollici. 
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• IL MERCATINO DELLE MELE 


• VENDO Macintosh Plus completo di tastiera, 
mouse, 2 drive 800KB, Imagewriter, manuali origina¬ 
li Inside Mac; tutto con imballaggi in perfette condi¬ 
zioni, ancora in garanzia (scadenza settembre '87) a 
L. 5.100.000. Fabio Cauraro, Via Passo Falzarego, 
21 -30171 Venezia-Mestre. Tel. 041/613905. 

• VENDO Apple De composto da CPU 128 kram, 
tastiera italiana/inglese, drive, monitor fosfori verdi, 
supporto, mouse. Numerosi programmi originali Ap¬ 
ple come: AppleWork, AppleDesk, AppleWriter, si¬ 
stema completo di Apple Fortran, Apple Cobol, si¬ 
stemi operativi DOS 3,3, Prodos, Pascal. Manuali in 
italiano e inglese, imballi originali (usato pochissi¬ 
mo, un anno di vita) L. 1.600.000. Sergio Bar, Via 
Gramsci 7 - 10090 Gassino (TO). Tel. 011/9600849. 

• VENDO Macintosh 512/800K (nuove Rom 
128K) con decine di programmi a L. 3.500.000. Gui¬ 
do Borso, Via Btg. Feltre 24 - 31100 Treviso. Tel. 
0422/20008 se possibile ore pasti o giorni festivi. 

• VENDO in perfette condizioni scheda 80 col. + 
scheda mouse + mouse originale; Enhancement Kit 
per Apple Ile. Alessandro Mastrosimone, Viale Trie¬ 
ste 108 93100 Caltanisetta. Tel. 0934/22248. 

• VENDO i seguenti programmi per Apple He e 
He tutti con manuali e confezioni originali: Mouse- 
Desk (by version Soft) L. 30.000, Kit Utente Pro- 
Dos (by Apple) L. 60.000, Dossier (by Mondadori) 
L. 90.000. Pier Luigi Antonini, Via Fasolo 23 - 
27100 Pavia. Tel. 0382/463271. 

• VENDO Macintosh 512 + drive esterno, qualsia¬ 
si prova a L. 3.500.000 trattabili, accessoriato con 
molti programmi per passaggio a sistema superiore. 
Ezio Spina, Cascina Canali 1-27018 Vidigulfo (PV). 
Tel. 0382/69073 dalle 18.30 alle 20. Tel. 0382 
69108 ore ufficio. 

• VENDO campionatore per Applell Greengate 
DS3: polifonico, possibilità di edit grafico dei suo¬ 
ni, sequencer, con tastiera a 5 ottave splittabile, usci¬ 
te su canali indipendenti. Gabriele Paoleschi, Via del 
Severmino 6, 51028 San Marcello Pistoiese. Tel. 
0573/630639. 

• VENDO causa passaggio a sistema superiore Ap¬ 
ple Ile originale a L. 650.000, monitor professiona¬ 
le Philips 12" color ambra riposante a L. 250.000, 
interfaccia e floppy disk originale Apple a L. 
350.000. Tutto il materiale è funzionante. Inoltre re¬ 
galo manuali originali e in lingua madre, nonché in¬ 
terfaccia parallela. Se veramente interessati contatta¬ 
re: Ignazio De Gregorio, Via Cofano 63, 91100 Tra¬ 
pani. Tel. 0923/20650 ore pasti. 

• VENDO causa passaggio sistema superiore Ap¬ 
ple He 128K, monitor, supporto monitor, drive ester¬ 
no, drive interno, mouse e mospaint tutto materiale 
originale con imballi, regalo inoltre cassetta portadi¬ 
schi con oltre 60 programmi tra cui: Tre per te, TK 
Solver, The Last One, Multiplan, The Print Shop, 
The Newsroom e molti programmi di ingengeria, gra¬ 
fica, Utilities e relativi manuali; cedo inoltre 2 ma¬ 
nuali originali Apple e cinque libri di sistema, tutto 
a L. 2.000.000. Marco Briganti. Tel. 0744/423144. 

• CERCO nella provincia di Siracusa utenti Apple 
Il per scambio informazioni ed esperienze. Dr. Fran¬ 
cesco DAquila, P.le Epipoli 125 - 96100 Siracusa. 

• VENDO Apple He usato pochissimo, completo 
di monitor e supporto, mouse, borsa viaggio, il tut¬ 
to originale con molti programmi e manuali molto 


interessanti; vera occasione. Vendo anche nuovissi¬ 
ma stampante Apple Imagewriter II ancora in garan¬ 
zia. Andrea Zanetto, Via Cavalli 38 - 10138 Torino. 
Tel. 011/4476468. 

• VENDO dischi Sony 3 1/2 DS/DD a L. 6.500 
cad. in confezione originale. Cerco stampante Image¬ 
writer da 80 colonne, funzionante. Amos Aimi, Via 
Zanella 11 - 43015 Noceto (PR). Tel. 0521/618097 
ore pomeridiane. 

• COMPRO per Apple IIC software di vario tipo. 
Cerco in particolare la versione 1.3 dell Apple Pa¬ 
scal e Utilities per il Kyan Pascal. Cerco i n. 1 e 2 di 
Applicando. Gianpietro Ferro, Via Pedemontana 
74/A/2 - 32030 Soranzen (BL). 

• COMPRO uno o due drive usati, purché perfetta¬ 
mente funzionanti e completi di cavo, per Apple Ile, 
per il prezzo di L. 120.000 cad. Avv. Gaetano Foti, 
Via Cavour 119 - 97019 Vittoria (RG). 

• VENDO Apple Ile nuovo (6 mesi di vita), com¬ 
pleto di drive incorporato, adattaore TV color, cavi o- 
riginali Apple, mouse, joystick originale Apple + 
programmi, mouse paint, Appleworks in italiano, 
conto correte, cedo insieme al blocco numerosi gio¬ 
chi e programmi di utilità. Tutto il blocco al prezzo 
d’occasione. Saverio Mirarchi, Via Bellino n. 65 - 

88100 Catanzaro. Tel. 0961/34579 ore serali. 

• CERCO possessore Apple He - Ile interessato 
scambio esperienze. Sebastiano Angrisani, Dragoner- 
strasse 11, 3000 Hannover 1. Tel.0049/511/641176 
ore serali. 

• VENDO compatibile II + 64K (D.O.S. Applesof- 
t e CP/M)) con tastiera separata - monitor fosfori ver¬ 
di con scheda 80 colonne - scheda sintetizzatore vo¬ 
cale - joystick - dischetti Dos e ProDos - stampante 
Mannesmann Tally 80/142 colonne - interfaccia 
stampante Centronics e Grappler. In omaggio softwa¬ 
re. Oltre ai giochi e Utilities ci sono: AppleWork, 
Multiplan, Psf File, Psf Graph, Word Star ecc. Libri 
dedicati e manuali originali Basic. Annate complete 
di Applicando 83/84/85/86. L. 2.000.000. La vendi¬ 
ta riguarda l’offerta complessiva e non i singoli pez¬ 
zi. Claudio Vergani, Via Moncenisio 4, 20043 Arco- 
re (MI). Tel. 039/614631 dalle 19 alle 21. 

• VENDO drive esterno per Apple IH, condizioni 
perfette L. 180.000. Cerco possessori GS per scambi 
idee, programmi, inforamzioni. Carlo M. Chittaro, 
Via Marconi 1 - Tambre (BL). Tel. 0437/49012. 

• VENDO per passaggio a sistema MS-DOS Ap¬ 
ple He, monitor Ile, supporto monitor, mouse con 
imballi e manuali originali a L. 1.400.000 fatturag¬ 
li, all’acquirente regalo riviste + confezione di 20 di¬ 
schi con i migliori programmi (con manuali) a sua 
scelta. Fulvio Zanuso, Via A. Diaz 8R - 17048 Val- 
leggia (SV). Tel. 019/882508 ore pasti. 

• VENDO sistema Macintosh completo compren¬ 
sivo di : Macintosh 512K, drive esterno 3,5", tastie- 
rino numerico. Francesco Vittorangeli, Via Pastren- 
go 6 - 43100 Parma. Tel. 0521/56209. 

• VENDO per passaggio a sistema superiore, un 
Apple Ile con scheda 80 colonne + 64K, monitor a 
fosfori verdi, mouse, scheda CPIM, due drive con 
controller, tutto originale Apple con imballi e ma¬ 
nuali. Cedo inoltre parecchi programmi Applicativi e 
di giochi completi di manuale. Tutto a L. 1.200.000 
trattabili. Dino Zanetti, Via Zamboni 128 - 37012 
Bussolengo (VR). Tel.04517155157 ore serali. 
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LISTATI PER APPLE II 


Listato 1. Stazione Meteo 

DOS 3.3 


ProDOS 

1 REM - — ~ 

2 REM STAZIONE METEO 

3 REM DI MARK CRAVEN 

4 REM COPYRIGHT (C) 1987 

Apple Ile 

Apple Ile 


5 REM BY APPLICANDO & 

6 REM MICROSPARC/ INC 

7 REM - 

10 TEXT : HOME 

20 IF PEEK (104) < > 8 THEN POKE 103,1: POKE 

104,8: POKE 2048,0: PRINT CHR$ (4)"RUN STA 
ZIONE.METEO": REM IMPOSTA PUNTATORE PROGRA 
MMA 

30 D$ = CHR$ (4):DV$ = H ,D1": POKE 230,32: ONE 
RR GOTO 5060 

40 POKE 960,1: REM FLAG D'ERRORE PER GLI ON E 
RR 

50 PRINT D$"BLOAD CURSOR.BAR" 

60 POKE 960,0: POKE 216,0: REM AZZERA ON ERR 
70 INVERSE : HTAB 1: FOR I = 1 TO 38: PRINT 
; : NEXT 
80 PRINT 

90 HTAB 1: PRINT TAB( 38)"*" 

100 HTAB 1: PRINT "*"; SPC( 11);"STAZIONE METEO 
"; SPC( 11);"*" 

110 FOR I = 1 TO 5: HTAB 1: PRINT "*" TAB( 38)" 
*": NEXT 

120 HTAB 1: FOR I = 1 TO 38: PRINT "*";: NEXT 
130 VTAB 4: HTAB 18: PRINT "DI": VTAB 5: HTAB 1 
2: PRINT "MARK R. CRAVEN": VTAB 7: HTAB 3: 
PRINT "(C)1987 BY APPLICANDO & MICROSPARC": 

VTAB 12 
140 NORMAL 

150 PRINT : PRINT "PROGRAMMA DI OSSERVAZIONI ME 
TEOROLOGICHE" 

160 GOSUB 720 
170 REM 

180 REM DIMENSIONI 

190 REM 

200 DIM M$(13),D$(13): REM MESI, GIORNI. 

210 DIM W$(31,10): REM GIORNO DELLE CONDIZION 
I DEL TEMPO, VOCI 
220 DIM 1$ (10) : REM INPUT 

230 DIM MR$(17): REM PROSPETTI DEI SOMMARI ME 
NSILI 

240 HP% = 13 
250 REM 

260 REM LEGGE I DATI 

270 REM 

280 FOR I = 1 TO 13: READ M$(I),D$(I): NEXT 

290 FOR I = 1 TO 9: READ IN$(I): NEXT : REM T 

ITOLI 

300 FOR I = 1 TO 9: READ L%(I): NEXT : REM LU 
NGHEZZE 

310 FOR I = 1 TO 6: READ RP$(I): NEXT : REM O 
PZIONI DI PROSPETTO 

320 FOR I = 1 TO 5: READ R%(I): NEXT : REM LU 
NGHEZZE DI RP$() 

330 FOR I = 1 TO 5: READ HD$(I): NEXT : REM I 
NTESTAZIONE SCHERMATA PER LA VISUALIZZAZION 
E 

340 FOR I = 1 TO 5: READ HD% (I) : NEXT : REM S 
PAZI NECESSARI PER LE INTESTAZIONI 
350 FOR I = 1 TO 5: READ H2$(I): NEXT : REM S 
ECONDA LINEA DELLE INTESTAZIONI 
360 FOR I = 1 TO 5: READ HR$(I): NEXT : REM S 
ECONDA RIGA DELLE INTESTAZIONI SU STAMPANTE 
370 CUR = 768: REM CHIAMA LA LOCAZIONE DEL CUR 
SORE A BARRA 

380 FOR 1=1 TO 39:L$ = L$ + "=": NEXT 
390 WD$ = " N- NE -E- SE- S-SW- W - 
NW ": REM DIREZIONI DEL VENTO 
400 DW$ = "N ENE SSE WSW NW": REM STRINGA DI 
CONVERSIONE 

410 UL$ = CHR$ (95) + CHR$ (95): REM DUE SO 
TTOLINEATURE 

420 GOTO 1310: REM MENU' PRINCIPALE 
430 REM 

440 REM ** LETTURA DEL DISCHETTO ** 

450 REM 

460 TEXT : HOME : VTAB 10:X$ = "LETTURA DISCHET 

TO - NON INTERROMPERE": GOSUB 730 
470 ONERR GOTO 5080 

480 PRINT CHR$ (13);: PRINT D$;"UNLOCK"F$DV$: 

REM CONTROLLA SE C'E' IL FILE 
490 PRINT D$;"OPEN "F$ 

500 PRINT D$;"READ "F$ 

510 INPUT D$(M%): FOR I = 1 TO VAL (D$ (M%)) : F 
OR J = 1 TO 9: INPUT W$(I,J): NEXT : NEXT 
520 PRINT D$"CLOSE"F$ 

530 POKE 960,0: POKE 216,0 


540 

550 

560 

570 

580 

590 

600 

610 

620 

630 

640 

650 

660 

670 

680 

690 

700 

710 

720 


730 

740 

750 

760 

770 


780 

790 

800 

810 

820 

830 

840 

850 

860 

870 

880 

890 

900 

910 

920 

930 

940 

950 

960 

970 

980 


990 

1000 

1010 

1020 

1030 

1040 

1050 

1060 


1070 

1080 


1090 

1100 

1110 

1120 

1130 


ON FLAG GOTO 1950,2740,3290,3780,4200 
REM 

REM ** SCRITTURA DEL DISCHETTO ** 

REM 

TEXT : HOME : VTAB 10:X$ = "SCRITTURA DISCH 
ETTO - NON INTERROMPERE": GOSUB 730 
ONERR GOTO 5140: POKE 960,3 
GOSUB 750: REM NOME DEL FILE 
PRINT D$;"OPEN"F$DV$ 

PRINT D$;"WRITE"F$ 

PRINT D$(M%) 

FOR I = 1 TO VAL (D$(M%)): FOR J = 1 TO 9: 

PRINT W$(I,J): NEXT : NEXT 
PRINT D$ 

PRINT D$;"CLOSE"F$ 

POKE 960,0: POKE 216,0: REM AZZERA GLI ON 
ERR 

ON FLAG GOTO 2630,2700,2710 
REM 

REM SUBROUTINES 
REM 

VTAB 23: PRINT "PREMI <RETURN> PER CONTINUA 
RE...";: POKE - 16368,0: GET Y$: PRINT : R 


ETURN 

HTAB 20 - LEN (X$) / 2: PRINT X$: RETURN 

TEXT : HOME :X$ = "** IMMISSIONE DATI METE 

O **": GOSUB 730: PRINT L$: RETURN 

F$ = M$(M%) + "." + STR$ (Y%): RETURN : RE 

M NOME DEL FILE DA SCRIVERE 

LINE = ( PEEK (4) +1) / 2: RETURN 

HTAB 1: FOR I = 1 TO 9: VTAB 4 + I + (I > 2 

) + (I > 4) + (I > 5) + (I > 7): PRINT IN$( 

I): NEXT : RETURN 

VTAB 3: HTAB 15: PRINT D%" "M$(M%)" 19";Y 

%" ";: RETURN 

IF LEFT$ (I$(I),1) = " " THEN I$(I) = RIG 
HT$ (I$(I), LEN (1$ (I)) - 1) 

RETURN 

ER = 0 :DC = 0: ON I GOTO 830, 830, 840, 840, 85 
0,860,860,870,960: REM CLEAR FLAGS 
RETURN 

H = 120:L = - 30: GOTO 970 

H = 31.5 :L = 28: GOTO 1050 
H = 100:L = 0: GOTO 970 
H = 30:L = 0: GOTO 1050 

IF I$(I) = "N" OR I$(I) = " N" THEN I$(I) = 
" N": RETURN 

IF I$(I) = "NE" THEN RETURN 
IF I$(I) = "E" OR I$(I) = " E" THEN I$ (I) = 
" E": RETURN 

IF I$(I) = "SE" THEN RETURN 
IF I$(I) = "S" OR I$(I) = " S" THEN I$(I) = 
" S": RETURN 

IF I$(I) = "SW" THEN RETURN 
IF I$(I) = "W" OR I$(I) = " W" THEN I$(I) = 
" W": RETURN 

IF I$(I) = "NW" THEN RETURN 

ER = 1: RETURN : REM NESSUNO DEI SUDDETTI 

H = 150 :L = 0 

GOSUB 790 

FOR K = 1 TO LEN (1$ (I)) : IF ASC ( MID$ ( 
1$ (I) , K, 1 ) ) < 45 OR ASC ( MID$ (I$(I),K,1) 

) > 57 OR ASC ( MID$ (I$(I),K,1)) = 46 OR 
ASC ( MID$ (1$(I),K,1)) = 47 THEN ER = 1:K 
= LEN (1$ (I)) : NEXT : RETURN 


NEXT 

X = INT ( VAL (W$(D%,I))) :I$ (I) = STR$ ( 
X): REM CREA NUMERO INTERO 
IF VAL (I$(I>) < L OR VAL (I$(I)) > H TH 
EN ER = 1: RETURN 

IF VAL (1$ (2) ) > VAL (I$(l)) AND I$(2) < 
> "" THEN ER = 1: RETURN 
IF LEN (1$(I)) = 1 THEN I$(I) = " " + 1$( 
I) 

RETURN : REM NIENTE ERRORI 

IF VAL (1$(I)) > H OR VAL (1$ (I)) < L TH 

EN ER = 1: RETURN 

REM IF (I = 6 OR I = 7) AND EC = 1 THEN E 
C = 0: IF I$(I) < > "" THEN RETURN : REM 

CONTROLLA I LIMITI QUANDO "ACCETTA" DA ED 
IT 

GOSUB 790 

FOR K = 1 TO LEN (I$(I)): IF ASC ( MID$ 
(1$ (I) , K, 1) ) < 48 OR ASC ( MID$ (I$(I),K, 
1)) >57 THEN DC = DC + 1:D1 = K 
NEXT : IF DC > 1 THEN ER = 1 : RETURN 
IF DC = 1 THEN IF MID$ (I$(I),D1,1) < > 

"." THEN ER = 1 : RETURN 
IF I < 6 OR I > 7 THEN 1140 
IF DC = 0 THEN I$(I) = I$(I) + ".00": GOTO 
1140: REM NIENTE DECIMALI,DC=0 
I$(I) = I$(I) + "00": IF VAL (1$ (I) ) < 1 
THEN I$(I) = " 0" + MID$ (1$ (I) ,D1,3) : RE 


(Continua: Listato 1. Stazione Meteo) 
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(segue:Listato 1. Stazione Meteo) LISTATI PER APPLE II 


TURN 

1680 M% = LINE: REM RICEVE IL MESE 

K~'' : 

1140 IF INT ( VAL (13(1))) < IO THEN I$(I) = " 

1690 IF RP = 1 OR RP = 2 THEN 1840: REM ANNO 


“ + 1$ (I) 

1700 IF MS = 1 THEN 1840: REM ANNO 

Pi 

1150 IF VAL (1$ (4)) > VAL (I$(3)) THEN ER = 1 

1710 GOSUB 1270: REM PROMPTS 

w 

: RETURN 

1720 VTAB 10: HTAB 25 - ED * 24 


1160 IF LEN (I$(I)) = 2 THEN I$(I) = I$(I) + “ 

1730 PRINT "DATA "ULS" (1-"D$ (M%)")"; : HTAB 30 


.00": RETURN 

- ED * 24 

pi 

1170 IF LEN (1$ (I) ) < 5 THEN I$(I) = I$(D + " 

1740 INPUT "";I$: IF LEN (1$) > 2 AND ED = 1 T 

Li 

0": GOTO 1170 

HEN PRINT CHR$ (7): HOME : GOTO 1720: RE 


1180 I$(I) - LEFT3 (1$ (I) , 2 ) + + MID$ (1$ 

M RIFA' TUTTO 


(I),4,2) 

1750 IF ED = 1 THEN 1770 

fi: 

1190 RETURN : REM NIENTE ERRORI 

1760 IF LEN (1$) > 2 THEN PRINT CHR3 (7): GO 

1200 FOR I = 1 TO 9 

TO 1580: REM RIFA' TUTTO 

1210 VTAB 4 + I + (I > 2) + (I > 4) + (I > 5) + 

1770 IF ( VAL (1$) < 1 OR VAL (1$) > VAL (D$ ( 


(I > 7): HTAB 16: FOR J = 1 TO L%(I): PRI 

M%))) AND ED = 1 THEN PRINT CHR$ (7);: H 


NT CHR$ (95);: NEXT : CALL - 868: HTAB 1 

OME : GOTO 1720 

Fi 

6: PRINT W$ (D%, I) ; : IF W3(D%,I) < > "" TH 

1780 IF VAL (1$) < 1 OR VAL (1$) > VAL (D$(M 

Li 

: EN CALL - 868 

%)) THEN PRINT CHR$ (7);: GOTO 1720 


i 1220 HTAB 16: NEXT : RETURN : REM IMMETTE LIN 

1790 D% = VAL (1$): REM GIORNO 


EA 

1800 IF ED = 1 THEN ED = 0 : RETURN : REM GIORN 

m 

1230 REM PROMPTS DI SELEZIONE DEL CURSORE 

O 

1240 VTAB 21: PRINT L$;: VTAB 22: HTAB 1: INVER 

1810 REM 

SE : PRINT NORMAL : PRINT " INV 

1820 REM RICEVE L'ANNO 


ERSE : PRINT NORMAL : PRINT " = SCE 

1830 REM 

i 

GLIERE .. . INVERSE : PRINT "RETURN";: 

1840 GOSUB 1270: TEXT : POKE 33,15: POKE 32,23: 

NORMAL : PRINT " = ESEGUIRE" 

POKE 34,11: POKE 35,13 

1250 VTAB 23: PRINT " PUOI USARE LE FRECCE IN 

1850 HOME : PRINT "ANNO "UL$" (19"UL$")";: HTAB 


SU O IN GIU'" 

6 


1260 VTAB 24: PRINT L$;: RETURN 

1860 INPUT "";I$ 

Pi 

1270 VTAB 21: HTAB 1: CALL - 958: VTAB 21: PRI 

1870 IF 1$ = "" AND MS = 1 THEN POP : GOTO 411 

o 

NT L$: VTAB 22: PRINT " IMMETTI INFORMAZI 

0 


ONI DATA APPROPRIATE": PRINT L$: RETURN 

1880 IF ( LEN (1$) < > 2 AND (RP = 1 OR RP = 2 


1280 REM 

)) THEN PRINT CHR$ (7): GOTO 2780: REM 

Ai 

1290 REM MENU' PRINCIPALE 

RIFA' TUTTO 

1300 REM 

1890 IF 1$ = "" THEN 1580: REM INPUT 

1310 POKE 960,0: TEXT : HOME :PD = 0:MS = 0: RE 

1900 IF VAL (1$) < 80 OR VAL (1$) > 99 THEN 


: M PULISCE I FLAG 

PRINT CHR3 (7);: GOTO 1850 


1320 X$ » "** STAZIONE METEO—MENU' PRINCIPALE 

1910 IF MS = 1 THEN Y% = VAL (1$): HOME : TEXT 

★ * 11 

: GOTO 1960: REM PULISCE LO SCHERMO E RI 


1330 VTAB 2: GOSUB 730 

TORNA 


1340 VTAB 4: PRINT L$ 

1920 HOME : TEXT : ON RP GOTO 2950,2990 


1350 VTAB 7:X$ = "INTRODUCI/MOD. DATI METEO": G 

1930 HOME :Y% = VAL (1$): IF M$(M%) + + 1$ 


OSUB 730 

» F$ THEN 1950 

o 

1360 VTAB 9:X$ = "PROSPETTI VIDEO/STAMPANTE": G 

1940 FLAG = 1: HOME : VTAB 10: HTAB 14: PRINT " 

OSUB 730 

STO LEGGENDO IL FILE";: GOSUB 750: GOTO 47 


1370 VTAB 11:X$ = "ESEGUI METEO.GRAFICI": GOSUB 

0: REM RICEVE L'ANNO-LEGGE IL FILE 

fi : 

730 

1950 FLAG = 0: REM AZZERA IL FLAG DI LETTURA/ 

1380 VTAB 13:X$ = "SCEGLI DRIVE/CATALOG": GOSUB 

SCRITTURA 

730 

1960 IF MS = 1 THEN RETURN : REM TORNA ALL'AR 


1390 VTAB 15:X$ = "FINE PROGRAMMA": GOSUB 730 

EA DELLE STATISTICHE MENSILI 


1400 GOSUB 1240: REM PROMPTS DEL CURSORE 

1970 HOME : GOSUB 730: PRINT L$: REM INTESTAZ 

Pi 

1410 CALL CUR,7,17,6,32: REM A,B,S,D 

IONE 

Lj 

1420 GOSUB 760: REM RICEVE N. LINEA 

1980 GOSUB 780: REM STAMPA LA DATA 


1430 ON LINE GOTO 1580,2780,1440,1460,4890 

1990 VTAB 21: HTAB 1: CALL - 958: VTAB 21: PRI 


1440 HOME : PRINT : POKE 960,4: ONERR GOTO 528 

NT L$: FOR I = 1 TO 9: 1$ (I) = "": NEXT 


0 

2000 PRINT "~Q=FINE ESC=ARRETRA "; : INVERSE : 

Q 

1450 PRINT D$"VERIFY METEO.GRAFICI"DV$: POKE 21 

PRINT NORMAL : PRINT "=SPAZIO INDIE 

6,0: PRINT D$"RUN METEO.GRAFICI 

TRO" 


1460 HOME :X$ - "SCEGLI DRIVE": GOSUB 730: PRIN 

2010 PRINT " ^C=AZZERA DATI ~E=MODIFICA Gl 

fi 

T L$ 

ORNO";: REM 2 SPAZI,5 SPAZI 

1470 GOSUB 1240: REM PROMPTS 

2020 VTAB 24: HTAB 1: PRINT ,L$; 


1480 VTAB 6: HTAB 12: PRINT "DRIVE ATTIVO=";: I 

2030 GOSUB 770: REM LINEE D'INPUT 


NVERSE : PRINT RIGHT$ (DV$,1): NORMAL : V 

2040 REM 


TAB 10 :X$ = "DRIVE 1": GOSUB 730 :X$ = "DRI 

2050 REM INIZIO DELL'INPUT 


VE 2": GOSUB 730 :X$ = "CATALOG DISCHETTO": 

2060 REM 

Là 

GOSUB 730:X5 = "MENU PRINCIPALE": GOSUB 

2070 FLAG = 0: GOSUB 1200: FOR I = 1 TO 9 


730 

2080 VTAB 20: HTAB 1: CALL - 868 


1490 CALL CUR,10,15,10,28:LINE = PEEK (4) 

2090 IF I = 8 THEN VTAB 20: HTAB 1: PRINT WD3 

p 

1500 ON LINE GOTO 1510,1510,1530,1310 

2100 VTAB 4 + I + (I > 2) + (I > 4) + (I > 5) + 

1510 DV$ = ",D" + STR$ (LINE) 

(I > 7):.HTAB 16: REM LINEA D'INPUT 

1520 GOTO 1460 

2110 FOR J = 1 TO L% (I) : PRINT CHR$ (95);: NEX 


1530 TEXT : HOME : POKE 960,5: ONERR GOTO 5160 

T : CALL - 868: HTAB 16: PRINT W$(D%,I);: 

|SSS! 

1540 CA$ = "CATALOG"-:PR » 4 * ( PEEK (48896) = 

HTAB 16 

76): PRINT CHR$ (4); LEFT$ (CA$,7 - PR);D 

2120 1$ = "": I$ ( I) » REM STRINGHE D'INPUT 


V$: POKE 216,0: POKE 960, 0: PRINT : PRINT 

NULLE 


: GOSUB 720: GOTO 1460 

2130 POKE - 16368,0: GET 13: REM IMMETTE UN 


1550 REM 

CARATTERE 

mm 

1560 REM IMMETTE I DATI 

2140 IF 13 > CHR3 (31) THEN 2510 

LÀ 

1570 REM 

2150 REM ** CONTROLLA SE. E' <ESC> ** 

1580 POKE 960,2: GOSUB 740: REM INTESTAZIONE 

2160 IF 13 < > CHR3 (27) THEN 2200 


1590 RP = 0 

2170 IF I = 1 THEN PRINT CHR3 (7);: HTAB 16: 

o 

1600 REM RICEVE IL MESE 

PRINT W3(D%,I) ; : CALL - 868 : GOTO 2080: R 

1610 VTAB 5: CALL - 958: GOSUB 1240: REM PUL 

EM ARRETRA SENZA POSTO DOVE ANDARE? 

ISCE E METTE ISTR. 

2180 HTAB 16: PRINT WS(D%,I);: CALL - 868:1 = 


1620 VTAB 8: HTAB 1: PRINT "SCEGLI MESE.." 

I - 1: GOTO 2080: REM ARRETRA FINO ALL'UL 


1630 FOR I = 1 TO 12: VTAB 3+1: HTAB 18: PRIN 

« TIMO INPUT 

wm 

T " ";M$(I): NEXT : PRINT TAB( 18)" ";M$ 

2190 REM ** CONTROLLA SE E* <— ** 

LÀ 

(13) 

2200 IF 13 < > CHR3 (8) THEN 2270 


1640 CALL CUR,4,16,19, 23 

2210 IF I$(I) = "" THEN PRINT CHR3 (7);: GOTO 


1650 LINE = PEEK (4) 

2080 

wm 

1660 IF LINE = 13 THEN 1310 

2220 IF LEN (13(1)) = 1 THEN I$(I) = GOTO 

fpfi 

1670 ON RP GOTO 2930,2970: REM ROUTINE DEL PRO 

2080: REM <— SENZA POSTO DOVE ANDARE 

SPETTO 

2230 POKE 36, PEEK (36) - 1: PRINT CHR$ (95); 
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(seguo: Listato 1. Stazione Meteo) LISTATI PER APPLE II 


CHR$ (8); : I$ (I) = LEFT$ (I$(I), LEN (1$ (I 
.)) - 1): GOTO 2130: REM <— 

2240 REM 

2250 REM ** CONTROLLA SE E' <RTN> ** 

2260 REM ' 

2270 IF 1,$ < > CHR$ (13) THEN 2400 

2280 IF I$(I) = ,,n THEN HTAB 16: PRINT W$(D%,I 
);: CALL - 8 68: 1$ (I) = W$(D%,I):EC = 1: R 
EM CONTROLLO D'ERRORE 

2290 W$(D%,I) = 1$(I): REM INPUT NON NULLO 

2300 IF W$(D%,I) = "" THEN 2330: REM NESSUNA I 
NTRODUZIONE FATTA 

2310 CALL - 868:1$ = "": GOSUB 810:EC = 0: REM 
INPUT DELLA TRAPPOLA D'ERRORE 
2320 IF ER THEN PRINT CHR$ (7);:ER = 0: GOTO 
2100 

2330 EC = 0: HTAB 16: PRINT I$(I);: CALL - 868 
2340 W$(D%,I) = 1$ (I) : REM ASSEGNA LA STRINGA 

2350 IF I < =9 THEN NEXT : REM AVANZA AL C 

AMPO SEGUENTE 

2360 D% — D% + 1: GOTO 2560: REM INCREMENTA IL 
GIORNO 
2370 REM 

2380 REM ** CONTROLLA SE E' IL CARATTERE A ** 
2390 REM 

2400 IF 1$ < > CHR$ (17) THEN 2430 

2410 IF LEN (1$ (I)) > 0 THEN I$(I) = "": REM 

INTRODUZIONE NULLA QUANDO E' FINE 
2420 GOTO 2560: REM A Q=ESCI SU MENU O DISCO 
2430 IF 1$ < > CHR$ (3) THEN 2450: REM AZZE 

RA LE INTRODUZIONI ( A C) 

2440 1=9: NEXT : FOR I = 1 TO 9:W$(D% / I) = "" 
: 1$ (I) = NEXT : GOTO 2070: REM INTROD 

UZIONI VUOTE 

2450 IF 1$ < > CHR$ (5) THEN 2500: REM EDIT 

A 

2460 IF LEN (1$ (I)) > 0 THEN I$(I) = "": REM 

INTRODUZIONE NULLA SE A E 
2470 ED = 1: GOSUB 1270: POKE 35,10: POKE 34,9: 

POKE 33,15: POKE 32,24: HOME : GOSUB 1730 
: TEXT : REM RICEVE IL GIORNO 
2480 GOSUB 780: REM PRINT INTESTAZIONE DI UNA 
NUOVA DATA 

2490 GOTO 1990: REM PROMPTS E INPUT 
2500 PRINT CHR$ (7);: GOTO 2130: REM CARATTE 
RI DI CONTROLLO? 

2510 PRINT 1$;: CALL - 868 :1$ (I) = I$(I) + 1$: 

IF LEN (1$ (I) ) > L% (I) THEN I$(I) = ‘‘":I 
$ = "": HTAB 16: PRINT W$(D%,I) CHR$ (7) ; : 
CALL - 868: HTAB 16: REM VISUALIZZA E 
COSTRUISCE STRINGA D'INPUT 
2520 GOTO 2130 
2530 REM 

2540 REM ** INPUT COMPLETO ** 

2550 REM 

2560 GOSUB 740: GOSUB 1240 

2570 VTAB 10: HTAB 11: PRINT "INTRODUCI ALTRI D 
ATI": PRINT : HTAB 10: PRINT "SALVA I DATI 
SUL DISCO": PRINT : HTAB 13: PRINT "MENU 
PRINCIPALE" 

2580 CALL CUR,10,18,9,32 
2590 GOSUB 760: REM LINEA 
2600 ON LINE GOTO 2630,2620 
2610 GOTO 1310: REM MENU' PRINCIPALE 
2620 FLAG = 1: GOTO 580: REM IMPOSTA IL FLAG D 
I SCRITTURA-VA A SCRIVERE 
2630 FLAG = 0: HOME : REM PULISCE LO SCHERMO 
2640 IF D% < = VAL (D$(M%)) THEN 2730: REM A 

NCORA NELLO STESSO MESE 

2650 GOSUB 740: GOSUB 1240: REM INTESTAZIONE 
E PROMPTS 

2660 VTAB 9: HTAB 8: PRINT " ** FINE DEL MESE * 
*": VTAB 12: HTAB 5: PRINT " SALVA—VAI AL 
MESE SEGUENTE": HTAB 6: PRINT " SALVA- 
RESTA IN "M$ (M%) : HTAB 7; PRINT " TORNA 
A EDITARE": HTAB 10: PRINT " MENU PRINCIP 
ALE " 

2670 CALL CUR,12,15,5,33 

2680 LINE = PEEK (4): ON LINE GOTO 2690,2690,2 
710,2720 

2690 FLAG = LINE + 1: GOTO 580: REM SCRIVE IL 
FILE 

2700 M% = M% + 1 - 12 * (M% = 13):Y% = Y% + (M% 
= 1):D% = 1: GOSUB 750: POKE 960,2: GOTO 
460: REM INCREMENTA IL MESE, L'ANNO SE NE 
CESSARIO, CREA IL NOME DEL FILE,LEGGE IL F 
ILE 

2710 D% = VAL (D$(M%)): GOTO 1970: REM EDITI 
NG/INTRODUZIONE 

2720 GOTO 1310: REM MENU' PRINCIPALE 
2730 GOSUB 740: GOSUB 780: GOSUB 770: GOTO 1990 
: REM IMMETTE DI NUOVO 

2740 GOSUB 780: GOTO 1970: REM NUOVO MESE PER 


EDITING/INTRODUZIONE 


2750 

REM 




2760 

REM 

** PROSPETTI ** 



2770 

REM 




2780 

TEXT : 

HOME 



2790 

X$ = " 

PROSPETTI METEO 

": VTAB 2: 

GOSUB 73 


0: PRINT : .PRINT L$ 



2800 

VTAB 8 

:X$ = "PROSPETTI 

VIDEO": GOSUB 730: 


PRINT 

:X$ = "PROSPETTI 

STAMPANTE" 

: GOSUB 7 


30: PRINT :X$ = "STATISTICHE MENSILI": GOS 
UB 730: PRINT :X$ = "TORNA AL MENU PRINCIP 
ALE": GOSUB 730 

2810 GOSUB 1240: REM PROMPTS 

2820 CALL CUR,8,14,7,32: REM A,B,S,D 

2830 GOSUB 760: REM RICEVE "LINEA" 

2840 ON LINE GOTO 2880,3610,4110,1310 
2850 REM 

2860 REM ** VISUALIZZA SULLO SCHERMO ** 

2870 REM 

2880 X$ = " VISUALIZZA SU VIDEO " 

2890 HOME : GOSUB 730: PRINT L$: PRINT 

2900 PRINT : PRINT "SCEGLI FASCIA : ": VTAB 12: 

HTAB 1: PRINT "DA:": VTAB 14: HTAB 1: PRI 
NT " A:" 

2910 GOSUB 1240:DC = 0: REM CONTATORE DELLE VO 
CI SUL DISPLAY 

2920 RP = 1: GOTO 1630: REM SCEGLIE IL MESE 
2 930 M% = LINE :A% = M%:MS$ = M$(M%) : VTAB 12: H 
TAB 7: PRINT M$(M%) 

2940 GOTO 1690: REM RICEVE L'ANNO "DA" 

2950 YS$ = 1$:B% = VAL (1$): VTAB 12: HTAB 11: 
PRINT "19"YS$ 

2960 RP = 2: GOSUB 1240: GOTO 1630: REM RICEV 
E IL MESE "A" 

2970 M% = LINE:C% = M%:ME$ = M$(M%): VTAB 14: H 
TAB 7: PRINT M$(M%) 

2980 GOTO 1690: REM RICEVE L'ANNO "A" 

2990 YE$ = I$:E% = VAL (1$): VTAB 14: HTAB 11: 
PRINT "19"YE$ 

3000 VTAB 17: CALL - 958 
3010 RP = 0: REM AZZERA IL FLAG 
3020 IF 12 * B% + A% > 12 * E% + C% THEN VTAB 
18: HTAB 14: FLASH : PRINT "FASCIA NON VAL 
IDA": PRINT CHR$ (7);: NORMAL : GOSUB 720 
: ON PD GOTO 2890: GOTO 2880 
3030 VTAB 19: HTAB 1: PRINT "FASCIA OK? (S/N) " 

;: POKE - 16368,0: GET A$: IF A$ = "N" OR 
A$ = CHR$ (110) THEN ON PD GOTO 2890: G 
OTO 2880 

3040 IF A$ < > "S" AND A$ < > CHR$ (121) THE 

N 3030 

3050 IF PD THEN PD = 0 : RETURN : REM RITORNO 
ROUTINE DEI PROSPETTI SU STAMPANTE 
3060 HOME :D1 = 0:X$ = "SCEGLI PARAMETRI DISPLA 
Y": GOSUB 730: PRINT L$ 

3070 VTAB 3: HTAB 6: INVERSE : PRINT "SCELTE": 
NORMAL 

3080 VTAB 18: HTAB 1: PRINT "SCEGLI FINO A3 — 
'FINE'QUANDO VUOI" 

3090 GOSUB 1240: FOR I = 1 TO 3 

3100 FOR J = 1 TO 6: VTAB 7 + J: HTAB 24 

3110 PRINT " "RP$(J): NEXT 

3120 CALL CUR,8,13,27,39 

3130 LINE = PEEK (4) 

3140 IF LINE = 6 THEN 3170: REM FINE 
3150 RP% (I) = LINE 

3160 VTAB 441: HTAB 2: PRINT I"."RP$(RP%(I)); 

: NEXT 

3170 LL = I - 1: IF LINE = 6 AND 1=1 THEN I = 
3: NEXT : GOTO 2780: REM NIENTE SCELTE 
3180 CALL - 958: VTAB 15: HTAB 1: PRINT "SCELT 
E OK (S/N)? POKE - 163 68,0: GET X$ : I 

F X$ = "S" OR X$ = CHR$ (115) THEN 3210 
3190 IF X$ = "N" OR X$ = CHR$ (110) THEN 3060 
3200 GOTO 3180 

3210 I = LL: HOME : FOR J = 1 TO I:D1 = DI + HD 
%(RP%(J)): NEXT : IF DI < =30 THEN 3230: 

REM CONTROLLA LO SPAZIO OCCORRENTE 
3220 VTAB 10: HTAB 1: PRINT CHR$ (7);: PRINT " 
TROPPI DATI PER IL VIDEO..": PRINT "SCEGLI 
DA CAPO.": GOSUB 720: GOTO 3060 
3230 VTAB 1: HTAB 8: INVERSE : PRINT "DAL:";: N 
NORMAL : PRINT M$(A%)" "YS$" : INVERSE 

: PRINT "AL:";: NORMAL : PRINT M$(C%)" "Y 
E$:D1 = I: PRINT L$: VTAB 3: PRINT " DATA 
";: FOR J = 1 TO I: PRINT HD$(RP%(J)); 

: NEXT : HTAB 1: VTAB 4: PRINT "MM/GG/AA 

3240 FOR J = 1 TO I: PRINT H2$(RP% (J)); : NEXT : 

HTAB 1: VTAB 5: PRINT L$: POKE 34,5: HOME 
: REM STAMPA LE INTESTAZIONI,PULÌSCE LA 
FINESTRA 
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1 (segue:Listato 1. Stazione Meteo) LISTATI PER APPLE II 

o 

S 3250 VTAB 23: PRINT L$: PRINT "<ESC> PER USCIRE 

3770 POKE 960,0: GOTO 470: REM LEGGE IL FILE 

<RTN> PER CONTINUARE";: VTAB 6: POKE 35 

3780 IF DC% = 1 THEN GOSUB 4070: GOSUB 4050:DC 


Sii ,22: HOME 

% = 0 :DC = 6: REM LINEE USATE 

ri 

k 3260 FLAG = 3 : Y% = VAL (YS$) :M% = A% 

3790 DC = DC + 1: REM SPEZZA LA LINEA PER UN 

mà 

g 3270 GOSUB 750 : REM RICEVE IL NOME DEL FILE 

NUOVO MESE 


3280 POKE 960,4: GOTO 470: REM LEGGE IL FILE 

3800 FOR I = 1 TO VAL (D$(M%)>: REM CIASCUN 


f 3290 FOR I = 1 TO VAL (D$ (M%)) : REM CIASCUN 

GIORNO 

fm 

/f GIORNO 

3810 DC = DC + 1: IF DC / 62 = INT (DC / 62) T 

ii 

i* 3300 DC = DC + 1: IF DC / 16 = INT (DC / 16) T 

HEN DC = 5: PRINT : PRINT : PRINT : PRINT 


S HEN GOSUB 3550 

: PRINT : PRINT : GOSUB 4050 


iiil 3310 TB = 10: PRINT TAB ( 2 - (M% > 9))M%"/" TA 

3820 REM VISUALIZZA SULLA STAMPANTE 

D 

)i| B( 5 - (I > 9) ) I ,, /"Y% ; 

3830 PD = 1: PRINT TAB( 2 - (M% > 9))M%"/" TAB 

k 3320 FOR J = 1 TO DI: REM NUMERO DEGLI ELEMEN 

( 2 - (I > 9))I"/"Y%" 

& TI PROSPETTABILI 

3840 PRINT SPC( ( VAL (W$(I,1)) < 100) + ( VAL 


3330 HTAB TB: ON RP%(J) GOSUB 3380,3410,3440,34 

(W$(1,1)) < 10) - ( VAL (W$(I,1) ) < 0) - 


Sii 60, 3480: REM CIASCUNA SCELTA DI TIPO DEL 

( VAL (W$(I,1) ) < - 9) ) W$(1,1) ; 

ipf 

TEMPO 

3850 PRINT SPC( 1 + ( VAL (W$(I,2)) < 100) + ( 

:Lii 

3340 HTAB TB : TB = TB + HD%{RP%(J) ): NEXT J: PRI 

VAL (W$ (1,2)) < 10) - ( VAL (W$(I,2)) < 0 


£ NT 

) - ( VAL (W$(1,2) ) < - 9) ) W$ (1,2) ; 


& 3350 NEXT I: GOTO 3520: REM INCREMENTA 

3860 PRINT SPC( PD * (8 - LEN (W$(I,1)) - LE 

.0 

Jii 33 60 REM 

N (W$ (1,2))) + ((LEN (W$ (1,2) ) + LEN (W$ 

?x 3370 REM STAMPA I PARAMETRI SCELTI, SULLO SCHE 

(1,1))) >4) + ((LEN (W$ (1,2) ) + LEN (W$ 

8 RMO 

(1,1))) >5) - ((LEN (W$(I,1) ) + LEN (W$ 


Si 3380 PRINT SPC ( 1 + ( VAL (W$(I,1)) < 100) + ( 

(1,2))) < 4) - ((LEN (W$(I,1) ) + LEN (W$ 

b 

VAL (W$(I,1) ) < 10) - ( VAL (W$(1,1) ) < 0 

(1/2))) < 3)); 

k ) - ( VAL (W$(I,1)) < - 9) ) W$ (1,1); SPC ( 

3870 PRINT W$(1,3) " "W$(I,4) SPC ( PD * (11 - 

(w$ ( 1 , 1 ) = ,M, >); 

LEN (W$ (1,3) ) - LEN (W$(I,4)))); 


Si 3 3 90 PRINT SPC ( 1 + ( VAL (W$(I,2)) < 100) + ( 

3880 PRINT SPC( 5 + ( VAL (W$(I,5)) < 100) + ( 


k VAL (W$(1,2)) < 10) - ( VAL (W$(1,2) ) < 0 

VAL (W$ (1,5)) < 10) ) W$ (1,5) SPC( 7 + 3 * 


ji ) - ( VAL (W$ (1,2) ) < - 9) ) W$ (I, 2) ; : IF J 

((w$ (1,5) = ""))); 

O 

É = 3 THEN RETURN 

3890 PRINT W$(1,6)" "W$(I,7) SPC( PD * (11 - 


Si 3 400 PRINT SPC( 4 + (W$(I,2) = ""));: RETURN 

LEN (W$ (1,6)) - LEN (W$(I,7)))); 


Si 3410 IF W$ (1,3) = "" THEN W$(I,3) = " 

3900 IF W$ (1,8) = "" THEN PRINT SPC ( 3);: GOT 

il 

}i 3420 IF W$ (1,4 ) = "" THEN W$(I,4) = " 

O 3920 

k 3430 PRINT W$(1,3)" "W$(I,4);: RETURN 

3910 PRINT SPC ( PD)W$ (1,8) SPC( 4 - LEN (W$(I 

ii;ii 3440 PRINT SPC( 1 + ( VAL (W$(I,5)) <100) + ( 

/ 8 ) ) ) 


VAL (W$ (1,5) ) < 10 ) ) W$ (1,5) SPC( (W$(I,5) 

3920 PRINT SPC( ( VAL (W$(I,9)) < 100) + ( VAL 

n 

Y =""));: IF J = 3 THEN RETURN 

(W$ (1,9)) < 10) ) W$ (I, 9) ; 

k 3450 RETURN 

3930 PRINT 

: LJi 

Si 3460 PRINT SPC ( ( VAL (W$(I,6)) < 10))W$(I,6) 

3940 IF PEEK ( - 16384) = 155 THEN PRINT L$L$ 


Si SPC ( 1 4 ( VAL (W$ (1,7) ) < 10) )W$ (1,7) ; : I 

: PRINT "STAMPA ANNULLATA :": PRINT :I = 


Si; F J = 3 THEN RETURN 

VAL (D$(M%) ): NEXT : GOTO 4000 

mm 

k 3470 PRINT SPC( 1 + 5 * (W$ (1,6) - ,,M ) + 5 * ( 

3950 NEXT I: REM INCREMENTA 

hi 

Si W$ (1,7) = ""));: RETURN 

3960 PD = 0 

Si 3480 IF W$(I,8) = ,,M THEN PRINT SPC ( 3);: GOT 

3970 M% = M% + 1: IF M% = 13 THEN M% = 1:Y% = Y 


Sii O 3500 

% + 1 

in 

Jii 3490 PRINT SPC( PD)W$(I,8) SPC ( PD + ( LEN (W$ 

3980 IF F$ = ME$ + + YE$ THEN PRINT : PRIN 

k (1,8)) = 1))" " SPC( VAL (W$(1,9)) < 10)W 

T L$L$ : PRINT "FINE DEL PROSPETTO:": FOR I 


$ (1,9) SPC( PD * (12 - LEN (W$(I,8)) - L 

= 1 TO 62 - DC: PRINT : NEXT : GOTO 4000 


EN (W$(1,9))));: RETURN 

3990 GOTO 3760: REM LEGGE IL FILE SEGUENTE 


Sii 3500 PRINT SPC( ( VAL (W$(I,9)) < 100) + ( VAL 

4000 PRINT D$;"PR#0" : GOTO 3610 

ipf 

M (W$ ( 1, 9) ) < 10) )W$ (1,9) ; : IF J = 3 THEN 

4010 REM 

llsJii 

RETURN 

4020 REM STAMPA L’INTESTAZIONE 


3510 PRINT SPC( 1 + 2 * (W$(I,8) = "") + 3 * ( 

4030 REM 


Sii W$ (1,9) = ""));: RETURN 

4040 PRINT SPC ( 30)"** SOMMARIO METEO **" 

p 

Jii 3520 M% = M% + 1 : IF M% = 13 THEN M% = 1:Y% = Y 

4050 PRINT L$L$ : PRINT " DATA ";: FOR J = 1 T 

% + 1 

O DI: PRINT RP$(RP% ( J) ); : NEXT : PRINT : P 

iiiii 3530 IF F$ = ME$ + " . " + YE$ THEN GOSUB 3550: 

RINT "MM/GG/AA "; : 


Sii TEXT : GOTO 2880 

4060 FOR J = 1 TO DI: PRINT HR$(RP% ( J) ); : NEXT 

Iff 

}i 3540 GOTO 3270: REM .LEGGE IL MESE SEGUENTE 

: PRINT : PRINT L$L$ : RETURN : REM STAMPA 

k 3550 POKE - 16368,0: GET X$ : IF X$ « CHR$ (27 

LE INTESTAZIONI 


) THEN I = VAL (D$(M%)): POP : TEXT : GOT 

4070 PRINT D$;"PR#1": PRINT CHR$ (9)"80N": RET 


O 2880: REM ESCE 

URN 


f 3560 IF X$ = CHR$ (13) THEN RETURN 

4080 REM 

mrn 

k 3570 PRINT CHR$ (7);: GOTO 3550 

4090 REM STATISTICHE MENSILI 

y 

3580 REM 

4100 REM 

Si 3 5 90 REM ** PROSPETTO STAMPANTE ** 

4110 W1 = 0:H = 0:MS = 1: TEXT : HOME :X$ = "** 


S 3600 REM 

STATISTICHE MENSILI **": GOSUB 730: REM 

b 

jii 3 610 PD = 1: REM USA IL FLAG PER LE STESSE RO 

INTESTAZIONE E FLAG DELLE STATISTICHE 

Si UTINE DELLO SCHERMO. 

4120 FOR I = 1 TO 8:W%(I) =0: NEXT 

3620 DC = 0: REM CONTATORE DELLE LINEE 

4130 PRINT L$: GOSUB 1240: REM INTESTAZIONE/I 


•x 3 630 X$ = "PROSPETTI STAMPANTE": GOSUB 2890 

STRUZIONI 

iiiibiiiiiiiii; 

jii 3 64 0 HOME :X$ = "PROSPETTO DATI COMPLETO": GOSU 

4140 VTAB 8: HTAB 1: PRINT "SCEGLI MESE:" 

fj 

è B 730: PRINT L$ 

4150 GOSUB 1630: REM RICEVE MESE/ANNO 


S 3650 GOSUB 1240 

4160 IF F$ = M$(M%) + + STR$ (Y%) THEN 420 


Si 3 660 VTAB 11: HTAB 13 

0: REM NON LEGGE DI NUOVO 

' •’ 

fi 3 670 PRINT "STAMPA PROSPETTO": HTAB 13: PRINT " 

4170 GOSUB 750: REM CREA IL NOME DEL FILE 

mm 

Jii FINE": REM 6 SPAZI PRIMA DI FINE 

4180 FLAG = 5: REM LEGGE FLAG FILE 

U 


4190 POKE 960,4: GOSUB 460: REM LEGGE IL FILE 

3680 CALL CUR,11,12,13,28 

4200 HOME : VTAB 8: HTAB 3:' FLASH : PRINT "**"; 


3690 LINE = PEEK (4) 

: NORMAL : PRINT " ATTENDI — STO LAVORAND 

O 

jii 3 700 IF LINE = 2 THEN HOME : GOTO 3 610: REM 

O ";: FLASH : PRINT "**": NORMAL 

S FINE 

4210 V = 1 :HI$ = "-30":LW$ = "150": GOSUB 4700: 

libili 

ili; 3710 1% = 5 : DI = 1% 

MR$(1) = HI$:MR$(4) = LW$: REM RICEVE MA 


i;i; 3720 TEXT : HOME : VTAB 10: HTAB 8: PRINT "<ESC 

X TEMPERATURE MIN,MAX 


S| > PER ANNULLARE STAMPA" 

4220 GOSUB 4810:MR$(5) = STR$ ( INT (SUM / COU 

pi 

fi 3730 FOR K = 1 TO 5:RP%(K) = K: NEXT : REM HA 

NT)): REM MEDIA MAX 

LÀ 

ili; SCELTO TUTTI I DATI 

4230 V = 2 :HI$ = "-30":LW$ = "150": GOSUB 4700: 


3740 GOSUB 4070: PRINT SPC( 29)"** SOMMARIO ME 

MR$(3) = HI$:MR$(2) - LW$: REM RICEVE LE 


jS TEO **": PRINT D$; "PR#0"; CHR$ (13);:DC% = 

TEMPERATURE MIN, MAX-MIN 

0 

);i 1: REM CONTA LA LINEA D * INTESTAZIONE 

4240 GOSUB 4810:MR$(6) = STR$ ( INT (SUM / COU 

3750 FLAG = 4:Y% = VAL (YS$):M% = A% 

NT)): REM MEDIA MIN 

3760 GOSUB 750: REM RICEVE IL NOME DEL FILE 

4250 V = 3 :HI$ = "28.00": GOSUB 4700:MR$(7) = H 


| 

( Continua : Listato 1. Stazione Meteo) 
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1$: REM BAROMETRO MAX 

4260 GOSUB 4810:MR$(9) = STR$ ( INT ((SUM / CO 
UNT) * 100) / 100): REM MEDIA MAX 
4270 V = 4 :LW$ = "35.00": GOSUB 4700:MR$(8) = L 
W$: REM BAROMETRO MIN 
4280 GOSUB 4810:MR$(10) = STR$ ( INT ((SUM / C 
OUNT) * 100) / 100): REM MEDIA MIN 
4290 V = 5: GOSUB 4810:MR$(11) = STR$ ( INT (S 
UM / COUNT)) 

4300 FOR K = 1 TO 2:V = 5 + K: GOSUB 4810:MR$(K 
+11) = STR$ (SUM): NEXT : REM TOTALI 
PIOGGIA/NEVE 

4310 FOR I = 1 TO VAL (D$(M%)): IF LEN (W$(I, 
8)) = 1•THEN W$(1/8) = W$(1,8) + " " 

4320 IF LEN (W$(I,8)) = 0 THEN NEXT I: GOTO 4 
360 

4330 FOR II = 1 TO 8: IF MID$ (DW$,(2 * II) - 
1,2) = W$(1,8) THEN W1 = II:II = 8: NEXT I 
I: GOTO 4350 
4340 NEXT II 

4350 W%(W1) = W%(W1) + 1: NEXT I 

4360 W% = 1 :H = W%(1) : FOR I = 2 TO 8: IF W%(I) 

> H THEN H = W%(I):W% = I: NEXT : GOTO 43 
90: REM H=NUMERO DI GIORNI, W%=DIREZIONE 
4370 NEXT 

4380 MR$(14) = MID$ (DW$,(2 * W%) - 1,2) 

4390 V = 9: GOSUB 4810:MR$(15) = STR$ ( INT (S 
UM / COUNT)) 

4400 FOR I = 1 TO 13: IF MR$(I) = "" THEN MR$(I 

) _ ••***•• 

4410 IF (I = 5 OR I = 6 OR I = 9 OR I = 10) AND 

VAL (MR$(I)) = 0 THEN MR$(I) = "***» 

4420 NEXT 

4430 IF VAL (MR$(15)) = 0 THEN MR$(15) = "***" 
:H = 0 : REM NIENTE VENTO/NIENTE DIREZIONE 

t 

4440 IF MR$(15) = "***" THEN MR$(14) = "***": R 
EM NIENTE VENTO/NIENTE DIREZIONE 
4450 HOME : VTAB 2:X$ = "** VISUALIZZA DATI SOM 
MARIO **": GOSUB 730: PRINT L$: GOSUB 1240 
4460 VTAB 8: HTAB 1: PRINT "INVIA DATI A:": VTA 
B 11: HTAB 21: PRINT " MONITOR": HTAB 20: 
PRINT " STAMPANTE": HTAB 22: PRINT " FINE 

4470 CALL CUR,11,13,20,30 
4480 LINE = PEEK (4) 

4490 HOME 

4500 ON LINE GOTO 4550,4510,4110 
4510 PRINT : PRINT D$;"PR#1" 

4520 REM 

4530 REM VISUALIZZA SUL MONITOR 
4540 REM 

4550 TEXT : HOME :X$ = "* SOMMARIO METEO MENSIL 
E*--" + M$(M%) + " 19" + STR$ (Y%) + " *": 
GOSUB 730: PRINT L$ 

4560 PRINT "TEMPERATURA MAX = "MR$(1)" GRADI." 

: PRINT "TEMPERATURA MIN = "MR$(2)" GRADI 
.": PRINT "MAX PIU' BASSA = "MR$(4)" GRA 
DI.": PRINT "MIN PIU' ALTA = H MR$(3)" G 
RADI." 

4570 PRINT "TEMPERATURA MASSIMA MEDIA= "MR$(5)" 
GRADI.": PRINT "TEMPERATURA MINIMA MEDIA 
= "MR$(6)" GRADI." 

4580 PRINT : PRINT "PRESSIONE MASSIMA= ,, MR$(7)" 
POLLICI.": PRINT "PRESSIONE MINIMA = "MR$ 
(8)" POLLICI.": PRINT "PRESS. MAX MEDIA = 
"MR$(9)" POLLICI.": PRINT "PRESS. MIN MEDI 
A = "MR$(10)" POLLICI.": PRINT 
4590 PRINT "TOTALE PIOGGIA = "MR$(12)" POLLICI. 
": PRINT "TOTALE NEVE= "MR$(13)" POLLICI." 

: PRINT 

4600 PRINT "NUVOLOSITÀ* MEDIA = "MR$(11)"%" 
4610 PRINT : PRINT "VENTO PREVALENTE DAL "MR$( 
14)" ("H" GIORNI)" 

4620 PRINT "VELOCITA* MEDIA DEL VENTO = "MR$(15 
)" MPH." 

4630 PRINT L$ 

4640 IF LINE = 2 THEN HOME : PRINT : PRINT D$; 

"PR#0": VTAB 22:LINE = 0: GOTO 4630 
4650 VTAB 24: PRINT "PREMI <RETURN> PER CONTINU 
ARE...";: POKE - 16368,0: GET X$: GOTO 44 
50 

4660 REM 

4670 REM VALORE PIU* ALTO 

4680 REM V=ELEMENTO DI DATI (TEMPERATURA, VE 
NTO, ECC) 

4690 REM 

4700 X% = 0: FOR I = 1 TO VAL (D$(M%)) 


4710 

IF 

W$(I,V) = "" THEN 

NEXT : 

GOTO 

4750 


4720 

IF 

VAL (W$(I,V)) > 

= VAL 

(HI$) 

THEN 

HI$ 


= 

W$(I,V) 





4730 

IF 

VAL (W$(I,V)) < 

= VAL 

(LW$) 

THEN 

LW$ 


= W$(I,V) 


4740 X% = 1: NEXT : REM ALMENO UN VALORE NON 
NULLO 

4750 IF X% = 0 THEN LW$ = "":HI$ = "» 

4760 REM VALORE PIU* BASSO=LW$—VALORE PIU* A 
LTO=HI$ 

4770 RETURN 
4780 REM 

4790 REM SOMMA DEI VALORI 
4800 REM 

4810 X% = 0 :SUM = 0:COUNT = 0 
4820 FOR I = 1 TO VAL (D$ (M%)) 

4830 IF W$(I,V) = "" THEN NEXT : GOTO 4860 
4840 COUNT = COUNT + 1:SUM = SUM + VAL (W$(I,V 
)) 

4850 X% = 1: NEXT : REM ALMENO UN VALORE NON 
NULLO 

4860 IF COUNT = 0 THEN COUNT = 1: REM IMPEDÌS 

CE LA DIVISIONE PER ZERO 
4870 IF X% = 0 THEN SUM = 0: REM NIENTE VALOR 
I 

4880 RETURN : REM SOMMA=TOTALE DEI VALORI 
4890 TEXT : HOME : VTAB 10: PRINT "CONFERMA USC 
ITA CON 'S'...";: POKE - 16368,0: GET X$: 

IF X$ = "S" OR X$ = CHR$ (121) THEN TEX 
T : HOME : END 

4900 GOTO 1310: REM MENU* PRINCIPALE 
4910 REM 

4920 REM ISTRUZIONI DATA 

4930 REM 

4940 DATA GEN,31,FEB,29,MAR,31,APR,30,MAG,31,G 
IU,30,LUG,31,AGO,31,SET,30,OTT,31,NOV,30,D 
IC, 31, FINE, 0 : REM M$(),D$() 

4950 DATA TEMP MAX (F),TEMP.MIN (F),BARO 

METRO MAX,BAROMETRO.MIN,% NUVOLOSITÀ',PIOG 
GIÀ(POLL.),NEVE(POLL.),DIREZ. VENTO,VELOC. 
VENTO 

4960 DATA 3,3,5,5,3,4,5,2,3 

4970 DATA " TEMPERATURA "," PRESSIONE " 

," NUVOLOSITÀ* "," PRECIPITAZ."," VELO 
C.VENTO "," FINE 

4980 DATA 13,11,12,14,12 

4 990 DATA " TEMP. ",** PRESSIONE ","NUV. 

PRECIP. ","VENTO ": REM TEMP 

SPAZI=3,PRESS SPAZI=3,PRECIP SPAZI=3,VENT 



O SPAZI=2 



5000 

DATA 9,13,5,12,7 



5010 

DATA "MAX-MIN " , " MAX—MIN 

"," % 



" , "PIOG. NEVE ", "D V **: REM 

SPAZI 

= 


2,1,4,1,3,1,2,3 



5020 

DATA " MAX—MIN ", " MAX 

— MIN 

", 


" % ", "PIOG—NEVE 

"," DIR 

- 


VEL ": REM SPAZI = 2,2,2, 

1,1,3 

2,7,8,2, 

1, 

5030 

REM 



5040 

REM ROUTINES ONERR 



5050 

REM 



5060 

IF PEEK (222) = 6 THEN TEXT : 

HOME : VTA 


B 10: PRINT "IL FILE BINARIO NON 

E* SUL 

DI 


SCO..": PRINT : PRINT TAB( 10)"NON POSSO 
CONTINUARE": END : REM NIENTE FILE CURSOR 
E 

5070 GOTO 5160: REM ALTRO ERRORE 
5080 IF PEEK (960) < >2 THEN 5140 

5090 IF PEEK (222) = 6 THEN VTAB 10: HTAB 1: 

PRINT " STO CREANDO IL FILE 

": PRINT D$;"OPEN "F$: PRINT D$;"WRIT 
E"F$: REM 10 SPAZI PRIMA DI "STO CREANDO 
IL FILE" E 11 DOPO 

5100 IF PEEK (222) < > 6 THEN 5140 

5110 PRINT D$(M%): FOR I = 1 TO VAL (D$(M%)): 

FOR J = 1 TO 9: PRINT "": NEXT : NEXT 
5120 PRINT D$: PRINT D$;"CLOSE"F$: POKE 216,0: 

GOTO 490: REM CREA NUOVO FILE 
5130 REM 

5140 REM GESTIONE DEGLI ERRORI SU DISCO 

5150 REM 

5160 TEXT : HOME :ER = PEEK (222): POKE 216,0 
5170 IF ER = 4 THEN X$ = "DISCO PROTETTO IN SCR 
ITTURA":Y$ = "TOGLI LINGUETTA PROTEZIONE S 
CRITTURA": GOTO 5220 

5180 IF ER = 6 THEN X$ = "FILE "* + F$ + "* NON 
ESISTE":Y$ = "CREA FILE IN *INTRODUCI/MOD 
. DATI METEO"*:F$ = GOTO 5220 

5190 IF ER = 8 THEN X$ - "PROBLEMA I/O DISCO":Y 
$ = "CONTROLLA SPORTELLO DRIVE O POSIZIONE 
DISCO": GOTO 5220 

5200 IF ER = 9 THEN X$ = "DISCO COMPLETO":Y$ = 
"INSERISCI UN ALTRO O CAMBIA DRIVE": GOTO 
5220 

5210 VTAB 10: PRINT "ERRORE N."; PEEK (222)" A 
LINEA "; PEEK (219) * 256 + PEEK (218): P 
RINT : PRINT "INTRAPRENDI AZIONE APPROPRIA 
TA ": GOTO 5240 
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o 

8 

8 

D 

P: 

D 

o 

o 

o 

B 

fi 

p 

p 

P 

Pi 

p : 

B 

o 

fi 

oj 

pi 

DI 


100 









ò 

D 

o 

o 

D 

Q 

O 

o 

o 

o 

o 

o 

3 

Q 

3 

□ 

o 
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LISTATI PER APPLE II 


5220 

5225 


5230 


5240 

5250 

5260 

5270 

5280 

5290 

5300 

5310 

5320 


5330 

5340 


PRI 


PRINT D$"PR#0": PRINT CHR$ (7) 

PRINT TAB( 10)"*** ERRORE DISCO 
NT L$ 

VTAB 6: INVERSE : PRINT "PROBLEMA:": NORMA 
L : PRINT : PRINT X$: VTAB 13: INVERSE : P 
RINT "POSSIBILE SOLUZIONE:": NORMAL : PRIN 
T : PRINT Y$ 

GOSUB 720 

ON PEEK (960) GOTO 5270,1310,1580,1310,14 
60 

GOTO 1310: REM MENU* PRINCIPALE 
POKE 960,0: RUN 

ER = PEEK (222): IF ER = 6 THEN 5300 
GOTO 5190 

VTAB 10: HTAB 1: PRINT "PGR METEO.GRAFICI 
NON SU QUESTO DISCO" 

VTAB 12: PRINT TAB( 11)"PROVA DI NUOVO (S 
/N)";: INPUT G$ 

IF G$ < > "S" AND G$ < 

11: CALL - 985: PRINT 
0 

IF G$ = "S" THEN 1440 
GOTO 1310 


> "N" THEN VTAB 
CHR$ (7): GOTO 531 


(Fine) 


Checksum del listato 1 

APPLE CHECKER 3.0 

NOME FILE: STAZIONE.METEO 

TIPO: A 

LUNGHEZZA: 43A1 
CHECKSUM : 03 


O 

o 

p 

o 

3 

ò 

o 

11 

fi 

o 


Q 

O 

O 

o : 


Listato 2. Meteo Grafici 

DOS 3.3 

1 npM 

ProDOS 

1 KfcjJYl — — — — — 

2 REM METEO.GRAFICI 

3 REM DI MARK CRAVEN 

4 REM COPYRIGHT (C) 1987 

Apple Ile 

Apple Ile 


5 

6 
7 

10 

20 


30 

40 

50 

60 

70 

80 

90 


100 


110 

120 

130 

140 

150 

160 

170 

180 


190 


200 


210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 


BY APPLICANDO & 
MICROSPARC, INC 


REM 
REM 
REM 
TEXT : HOME 

IF PEEK (104) < > 64 THEN POKE 103,1: POK 

E 104,64: POKE 16384,0: PRINT CHR$ (4)"RUN 
METEO.GRAFICI": REM RILOCA IL PROGRAMMA SO 
PRA LA PG. 1 DELLA GRAFICA 
REM **** 

REM VARIABILI 

REM ** 

REM LOC 960 CONTIENE L'INDICE D'ERRORE 1-6 
PER LA GESTIONE DI ONERR 
D$ = CHR$ (4): POKE 230,32:DV$ = ",D1" 

FOR I = 1 TO 39:L$ = L$ + NEXT 

OP$ = "OPEN ":CL$ = "CLOSE ":RD$ = "READ ":W 
R$ = "WRITE ":U$ = "UNLOCK ":BL$ = "BLOAD ": 
BS$ = "BSAVE ":VF$ = "VERIFY ":AD$ = ",A$200 
0":LN$ = ",L$2000" 

Ml$ = "TRACCIA PARAMETRI GIORNALIERI":M2$ = 
"TRACCIA PARAMETRI MENSILI":M3$ = "CONFIGU 
RA SISTEMA":M4$ - "UTILITÀ* GRAFICHE":M5$ = 
"ESEGUI STAZIONE.METEO":M6$ = "SCEGLI DRI 
VE":M7$ - "CATALOGO DISCO":M8$ = "FINE" 

UL$ = CHR$ (95) + CHR$ (95): REM SOTTOL 
INEA 

CUR = 768: REM INDIRIZZO DELLA ROUTINE DE 

L CURSORE 

DIM M$(13),D$(13) 

DIM W$(31,9) 

REM 

REM ** FUNZIONI DEFINITE ** 

REM 

DEF FN Y (Y) = (150 - A2) * ( (HI - Y) / (HI 
-LO)) + A2: REM VALORE DELLA SCALA PER 
VALORE TRACCIAMENTO 

DEF FN X(A) = 7 * A + B: REM COORDINATA X 
PER TRACCIAMENTO 

DEF FN W(W) = B + 1 + W * ( (D - B) / (X - 
(X > 1))): REM PUNTO ORIZZONTALE PER I TR 
ACCIAMENTI DEL MESE 
REM 

REM INTESTAZIONI, MENU', ECC 
REM 

FOR I = 1 TO 13: READ M$(I),D$(I): NEXT : R 
EM MESI E GIORNI 

FOR I = 1 TO 9: READ RP$(I): NEXT : REM T 

RACCIA LE OPZIONI DEI PARAMETRI 

FOR I = 1 TO 9: READ TIC%(I): NEXT : REM 

NUMERO DI DIVISIONI DELLA SCALA 

REM LEGGE FILE BINARI 

POKE 960,1: ONERR GOTO 3960 

PRINT D$BL$"CURSOR.BAR": REM A$0300 

PRINT D$BL$"METEO.FIGURE": REM AS0800 

POKE 232,3: POKE 233,8: REM INDIRIZZO DELL 

E FIGURE ($0803) 


320 

330 

340 

350 

360 

370 

380 

390 

400 

410 

420 

430 

440 

450 

460 

470 


480 

490 

500 

510 

520 

530 


540 

550 


560 

570 


580 

590 

600 


610 

620 

630 


640 

650 

660 

670 

680 


CONFIGURA ** 


INVERS 
";: INVER 
" PER SCEG 
: NORMAL : 
PUOI USA 


REM 
REM 
REM 

F$ - "METEO.CONFIG" 

POKE 960,2: ONERR GOTO 4180 
PRINT D$U$F$DV$ 

PRINT D$OP$F$ 

PRINT D$RD$F$ 

INPUT PT: INPUT GP: INPUT GP$: INPUT CL 
PRINT D$CL$ 

POKE 216,0: POKE 960,0 
GOTO 1130: REM MENU' PRINCIPALE 
REM 

REM SUBROUTINES 

REM 

VTAB 21: PRINT L$;: VTAB 22: HTAB 
E : PRINT NORMAL : PRINT " 

SE : PRINT NORMAL : PRINT 

LIERE <";: INVERSE : PRINT "RTN" 

PRINT "> PER ESEGUIRE": PRINT " 

RE FRECCE SU O GIU"' 

VTAB 24: PRINT L$;: RETURN 
VTAB 3: HTAB 1: PRINT "STAMPANTE SLOT 1 
RETURN 

VTAB 3: HTAB 1: PRINT "NIENTE STAMPANTE 
RETURN 

VTAB 3: HTAB 21: PRINT "CON DUMP GRAFICO 
RETURN 

VTAB 3: HTAB 21: PRINT "SENZA DUMP GRAFICO 
": RETURN 

VTAB 5: HTAB 21: PRINT "STRINGA DUMP="S$;: 
CALL - 868: VTAB 6: HTAB 1: PRINT L$: RETU 
RN 

VTAB 5: HTAB 21: 

VTAB 5: HTAB 1: 

RETURN 
VTAB 5: 

N 

S$ = "": FOR 1=1 
MID$ (GP$,I,1)) < 

CHR$ ( ASC ( MID$ 

GOTO 590 

S$ = S$ + MID$ (GP$,I,1): NEXT 
RETURN 

HOME : PRINT TAB( 12)"SCEGLI DRIVE": PRINT 
L$: GOSUB 470: VTAB 6: HTAB 13: PRINT "DRI 
VE ATTIVO="; : INVERSE : PRINT RIGHT$ (DV$, 

1): NORMAL 

VTAB 11: HTAB 16: PRINT’ "DRIVE 1": HTAB 16: 
PRINT "DRIVE 2": 

CALL CUR,11,12,15,24:LINE = PEEK (4):DV$ = 

",D" + STR$ (LINE):F$ = "": RETURN : REM 
NUOVO DRIVE/NOME FILE NULLO 
VTAB 21: CALL - 958: VTAB 21: PRINT L$;: V 
TAB 22: HTAB 1: PRINT " IMMETTI ULTIME D • 
UE CIFRE ANNO": PRINT " ";: INVERSE : PRIN 

T "RETURN";: NORMAL : PRINT " PER SMETTERE 
SENZA UNA SCELTA": CALL - 958 
PRINT L$;: RETURN 
REM 

REM RICEVE IL MESE 

REM 

GOSUB 470: REM PROMPT ALLA BASE 

(Continua: Listato 2. Meteo Grafici) 


CALL 


868: RETURN 


TO LEN (GP$): IF 
32 THEN S$ 

(GP$,1,1)) 


PRINT "MONITOR A COLORI ": 
HTAB 1: PRINT "MONITOR MONO": RETUR 


ASC ( 
S$ + "*" + 
64): NEXT : 


Ih 

o 

o 

o 

o 

o 

D 


o 


101 


















































o 

(segue: Listato2. Meteo Grafici) LISTATI PER APPLE II 

o 

690 FOR I = 1 TO 12: VTAB 4+1: HTAB 18: PRINT 

EEK (48896) = 76): PRINT CHR$ (4); LEFT$ 



» ";M$(I): NEXT : PRINT TAB( 18)" ";M$(1 

(CA$,7 - PR);DV$: GET CHS: POKE 216,0: POK 

wm 

: fi 

3) : VTAB 5 : HTAB 1 

E 960,0: GOTO 1130 

:L, J- 

700 CALL CUR,5,17,19/23 

1300 REM TRACCIAMENTO GIORNALIERO 



710 LINE = PEEK (4): RETURN 

1310 HOME : PRINT TAB( 10)M1$ 



720 REM 

1320 PRINT L$ 

mm 

0 

730 REM RICEVE L'ANNO 

1330 VTAB 6: HTAB 1: PRINT "SCEGLI IL MESE": PR 


740 REM 

INT "PER IL GRAFICO :" 

y 

750 GOSUB 630: POKE 33,15: POKE 32,23: POKE 34, 

1340 GOSUB 680: REM RICEVE MESE 


11: POKE 35,13: REM FINESTRA D'INPUT 

1350 IF LINE = 13 THEN HOME : GOTO 1130: REM 



760 HOME 

VA A MENU' PRINCIPALE 

g 


770 VTAB 12: PRINT "ANNO "UL$" (19"UL$")"; : HTA 

1360 M% = LINE: REM NUMERO DEL MESE 

:U 

B 6 

1370 MS$ = M$(M%): REM MESE INIZIALE 


780 INPUT "";I$: IF 1$ = "" THEN PRINT CHR$ ( 

1380 REM 



7); : GOTO 1130 

1390 REM RICEVE L'ANNO 

mm 

o 

790 IF VAL (1$) < 80 OR VAL (1$) > 99 THEN P 

1400 REM 


RINT CHR$ (7);: GOTO 760 

1410 GOSUB 750: REM RICEVE L'ANNO 

LÀ 

800 HOME : TEXT : RETURN 

1420 Y% = VAL (1$):YS$ = 1$: REM ANNO INIZIAL 



810 POKE - 16368,0: VTAB V: HTAB 1: PRINT "PRE 

E 


Q 

MI <RETURN> PER CONTINUARE...";: GET X$: PR 

1430 HOME 

D 

INT : RETURN 

1440 REM 

820 IF LINE = 13 THEN POP : HOME : GOTO 1130: 

1450 REM SCEGLIE I PARAMETRI DI TRACCIAMEN 


REM FATTA LA SCELTA "FINE"-TORNA AL MENU' 

TO 



PRINCIPALE 

1460 REM 

ini 

jjf \ 

830 RETURN 

1470 PRINT TAB( 6)"SCEGLI PARAMETRI TRACCIAMEN 


840 IF A$ = "" THEN RETURN 

TO": PRINT L$ 



850 FOR I = 1 TO LEN (A$): DRAW ASC ( MID$ {A 

1480 VTAB 3: HTAB 6: INVERSE : PRINT "SCELTE": 



$,I,1)) - 31 AT H + (I * 6),V: NEXT : RETUR 

NORMAL 


o 

N 

1490 VTAB 20: HTAB 3: PRINT "SCEGLINE 2 -- 'FIN 

fi 

860 H = 64 : V = 185:H1 = 155: HCOLOR= 0: IF LEN 

E' QUANDO VUOI" 

(A$) < 15 THEN H = 101:H1 = 75 

1500 GOSUB 470 


870 FOR I = 0 TO 6: HPLOT H,V + I TO H + H1,V + 

1510 FOR I = 1 TO 2 



I: NEXT : RETURN 

1520 FOR J = 1 TO 9: VTAB 7 + J: HTAB 22: PRINT 


f); 

880 PRINT D$"PR#0": TEXT : HOME :ER = PEEK (22 

" "RP$(J): NEXT 

o 


2): POKE 216,0: RETURN 

1530 CALL CUR,8,16,23,35 



890 IF Y1(J) > 190 THEN Y1(J) = FN Y(LO) 

1540 LINE - PEEK (4) 



900 RETURN 

1550 IF LINE = 9 THEN HOME : GOTO 1580: REM 

mm 


910 IF Y2(J) > 190 THEN Y2(J) = FN Y(LO) 

FINE 



920 RETURN 

1560 RP %(I) = LINE 

LÀ 


930 REM 

1570 VTAB 4+1: HTAB 2: PRINT I"."RP$(RP%(I)); 



940 REM ACCEDE AL DISCO 

: NEXT 



950 REM 

1580 IF LINE = 9 AND 1=1 THEN 1=2: NEXT : G 

o 

o 

960 POKE 960,3: ONERR GOTO 4000 

OTO 1130: REM NIENTE SCELTE 

vlSv^-: 

970 HOME : VTAB 10: PRINT "STO LEGGENDO I FILE 

1590 P = I - 1: REM NUMERO DELLE SCELTE 


- NON INTERROMPERE": PRINT 

1600 VTAB 7: CALL - 958 


PI 

980 PRINT D$U$F$DV$ 

1610 VTAB 11: HTAB 4: PRINT "SCELTE OK (S/N)? »' 

n 

990 PRINT D$OP$F$ 

; : POKE - 163 68,0: GET X$: IF X$ = "S" OR 

IP 

1000 PRINT D$RD$F$ 

X$ = CHR$ (115) THEN 1640 



1010 INPUT D$ (M%) 

1620 IF X$ = "N" OR X$ = CHR$ (110) THEN HOME 



1020 FOR I = 1 TO VAL (D$(M%)) 

: GOTO 1470 


|P» 

1030 FOR J = 1 TO 9 

1630 GOTO 1600 

pi 

Li 

1040 INPUT W$(I,J) 

1640 IF PL = 2 THEN VTAB 20: HTAB 1: PRINT "PR 

Là 

1050 NEXT 

EMENDO <ESC> INTERROMPERAI LA ROUTINE": CA 


1060 NEXT 

LL - 958:V = 23: GOSUB 810 


9 

1070 PRINT D$CL$ 

1650 ON PL GOTO 1660,2910 

O: 

1080 POKE 216,0: POKE 960,0: REM AZZERA ONERR 

1660 REM 

1085 HK = 0: FOR I = 1 TO VAL (D$(M%)):HK = ( 

1670 F$ = MS$ + + YS$: GOTO 960 


VAL (W$ (1,6)) > HK) * VAL (W$(I,6)) + ( V 

1680 GOTO 2910: REM ROUTINE DI TRACCIAMENTO D 



AL (W$(1,6)) < = HK) * HK: NEXT :HK = (I 

ELLA GRAFICA 

o 

fi 

NT (HK / 6) * 6) + ( INT (HK / 6) < > HK 

1690 REM 

|P 

/ 6) * 6 : SI = HK / 12 

1700 REM TRACCIAMENTO MENSILE 

mà 


1086 IF PL = 2 THEN HK = 30:S1 = HK / 12 

1710 REM 



1090 ON PL GOTO 1680,2200,1130: REM PL=SCELTA 

1720 REM 


: pf 

DI MENU' 

1730 TEXT : HOME : REM DA MESE A MESE 

mm 

y 

1100 REM 

1735 IF PL = 2 THEN HK = 30:S1 = HK / 12 

Là 

1110 REM MENU' PRINCIPALE 

1740 PRINT TAB( 10)"TRACCIAMENTO MEDIE MENSILI 


1120 REM 

": PRINT L$: PRINT 


: :PP ; : 

1130 TEXT : HOME : PRINT TAB( 6)"GRAFICA METEO 

1750 PRINT : PRINT "SCEGLI LA FASCIA : ": VTAB 


o 

- MENU' PRINCIPALE": PRINT L$ 

12: HTAB 1: PRINT "DA:": VTAB 14: HTAB 1: 

n 

:kk 

1140 VTAB 6: HTAB 5: PRINT Ml$: VTAB 8: HTAB 7: 

PRINT " A:" 



. PRINT M2$: VTAB 10: HTAB 11: PRINT M3$ 

1760 GOSUB 680: REM RICEVE IL MESE "DA" 



1150 VTAB 12: HTAB 11: PRINT M4$ 

1770 GOSUB 820: REM CONTROLLA "FINE" 


ipi 

116Q VTAB 14: HTAB 9: PRINT M5$ 

1780 M% = LINE:A% = M%:MS$ = M$(M%): VTAB 12: H 



117Q VTAB 16: HTAB 13: PRINT M6$ 

TAB 7: PRINT M$(M%) 

b*À 


1180 VTAB 18: HTAB 13: PRINT M7$: VTAB 20: HTAB 

1790 REM RICEVE L'ANNO "DA" 



17: PRINT M8$ 

1800 GOSUB 750 


ipl 

1190 GOSUB 470 

1810 GOSUB 820 

mm 

ili: 

1200 CALL CUR,6,20,4, 34 

1820 YS$ = 1$:B% = VAL (1$): VTAB 12: HTAB 11: 

:( li 


1210 LINE = ( PEEK (4) + 1) / 2 

PRINT " 19"YS$ 



1220 PL = LINE: REM FLAG PER LA ROUTINE DI TR 

1830 REM RICEVE IL MESE "A" 


fi 

ACCIAMENTO 

1840 GOSUB 680 


1230 ON LINE GOTO 1310,1730,2420,3470,1260,1250 

1850 GOSUB 820 

n 


,1280 

1860 M% = LINE:C% = M%:ME$ = M$(M%): VTAB 14: H 



1240 TEXT : HOME : VTAB 11: HTAB 13: PRINT "SED 

TAB 7: PRINT M$(M%) 



UTA FINITA": END 

1870 REM RICEVE L'ANNO "A" 


pi 

1250 GOSUB 600: GOTO 1130: REM CAMBI DRIVE? 

1880 GOSUB 750 

wm 


1260 HOME : POKE 960,3: ONERR GOTO 4220 

1890 GOSUB 820 

q 


1270 PRINT : PRINT D$VF$"STAZIONE.METEO"DV$: PO 

1900 YE$ = 1$ : E% = VAL (1$): VTAB 14: HTAB 11: 


KE 216,0: PRINT : PRINT D$"RUN STAZIONE.ME 

PRINT "19"YE$ 



TEO": REM RIPRISTINA L'INDIRIZZO DI CAR 

1910 VTAB 18: CALL - 958 

o 

:( J: 

ICAMENTO,ESEGUE STAZIONE METEO 

1920 X = 1 + 12 * E% + C% - B% * 12 - A%: IF X 


1280 POKE 960,6: ONERR GOTO 4000 

> 24 THEN 1950: REM LIMITA LA VISUALIZZAZ 


1290 HOME : PRINT :CA$ = "CATALOG":PR = 4 * ( P 

IONE A 24 MESI 


g 
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1930 IF 12 * B% + A% > 12 * E% + C% THEN 1950: 
REM FASCIA ERRATA 

1940 GOTO 1960: REM SALTA IL MESSAGGIO D'ERRO 
RE 

1950 VTAB 18: HTAB 7: FLASH : PRINT "FASCIA NON 
VALIDA O TROPPO AMPIA": PRINT CHR$ (7);: 
NORMAL :V = 20: GOSUB 810: GOTO 1730: REM 
CONTROLLA FASCIA A/DA 


1960 VTAB 19: CALL - 958: PRINT "FASCIA OK? (S 
/N) ";: POKE - 16368,0: GET X$: IF X$ = " 
N" OR X$ = CHR$ (110) THEN 1730: REM SC 



EGLIE 

DI NUOVO < 


1970 

HOME : 

GOTO 1470: REM SCEGLIE I 

PARAMETR 

1980 

REM 



1990 

REM 

A%=NUMERO DEL MESE INIZIALE 

2000 

REM 

B%=ANNO INIZIALE 


2010 

REM 

C%=NUMERO DEL MESE FINALE 

2020 

REM 

E%=ANNO FINALE 


2030 

REM 

MS$=MESE INIZIALE 


2040 

REM 

ME$=MESE FINALE 


2050 

REM 

YS$=INIZIO DELL'ANNO 


2060 

REM 

YE$=FINE DELL'ANNO 


2070 

REM 



2080 

QT = 0 

:H = 0 :W = 0 : V = C + 10:T = 

A%: REM 


AZZERA ORIZZONTALE E CONTATORI 


2090 

FOR Z 

= T TO 12: IF W = X THEN Z = 

12: NEX 


T : GOTO 2120 


2100 

A$ = 

LEFT$ (M$(Z),1) 


2110 

DRAW 

ASC (A$) - 31 AT FN W(W),V: 

HPLOT 


FN W(W),C TO FN W(W),C + 4:W = W 

+ 1: NEX 


T Z:T 

= 1: GOTO 2090: REM METTE 

LE LETTE 


RE DEI 

MESI SULL' ASSE X 


2120 

HCOLOR 

« 3 + 3 * CL:A$ = MS$ + 

+ YS$:H 


= 2 : V 

= V + 10: GOSUB 840:A$ = ME$ 

+ + 


YE$: H 

= D - 19: GOSUB 840 



2130 HCOLOR= 2 * CL + 3:A$ = "( MESI )":H = 109 
: GOSUB 840: HCOLOR= 3 
2140 CI = 10: GOTO 3060 

2150 Y% = VAL (YS$):M% = A%: REM IMPOSTA I PA 
RAMETRI DEL NOME DEL FILE 
2160 X% = 0: REM CONTATORE DEI MESI 
2170 F$ = M$(M%) + "+ STR$ (Y%) 

2180 IF PEEK ( - 16384) = 155 THEN 1730: REM 
PREMENDO -ESC-, ARRESTO! 

2190 GOTO 960: REM LEGGE IL FILE 
2200 X% = X% + 1: REM CONTATORE DEI MESI 
2210 IF Y% * 12 + M% = E% * 12 + C% THEN QT = 1 
: REM ULTIMO FILE LETTO POI SMETTE DI LE 
GGERE I FILE 

2220 FOR J - 1 TO P:SUM(J) = 0:COUNT = 0: REM 
NUMERO DELLE SCELTE-AZZERA I CONTATORI 
2230 Q = J:FL = 1: GOSUB 3100:FL = 0 
2240 FOR I = 1 TO VAL (D$ (M%) ) : IF W$(I,RP%(J) 

) = "" THEN NEXT : GOTO 2270 
2250 SUM(J) = SUM(J) + VAL (W$ (I, RP% ( J) ) ) :COÙN 
T = COUNT + 1 
2260 NEXT 

2270 IF (RP%(J) = 6 OR RP% (J) = 7) THEN COUNT = 
0: REM TOTALI SOLO PER PIOGGIA/NEVE 
2280 AV(J) = SUM(J) / (COUNT + (COUNT = 0)) 

2290 IF X% = 1 THEN XI(J) = FN W(0):Y1(J) = F 
N Y (AV(J) ) :X2 (J) - XI (J) : GOSUB 890:Y2(J) 

= Y1(J): GOTO 2310: REM PUNTI INIZIALI D 
I TRACCIAMENTO 

2300 X2(J) = FN W(X% - 1) :Y2 (J) = FN Y(AV(J)) 

: GOSUB 910 

2310 HPLOT X1(J),Y1(J) TO X2(J),Y2(J): IF Y2 (J) 
> 150 THEN 2330: REM NON TRACCIA IL CAR 
ATTERE 

2320 DRAW 57 - 9 * (J = 2) AT X2(J),Y2(J): REM 
TRACCIA IL CARATTERE INDICATORE 
2330 XI (J) = X2(J):Y1(J) = Y2 ( J) : REM SALVA L 
'ULTIMO PUNTO DI TRACCIAMENTO 
2340 NEXT : REM LEGGE IL PARAMETRO SEGUENTE 
2350 M% = M% + 1 : IF M% = 13 THEN M% = 1:Y% = Y 
% + 1 

2360 IF QT = 1 THEN QT = 0 : GOTO 2380 
2370 GOTO 2170: REM LEGGE IL FILE SEGUENTE 
2380 HOME : POKE - 16368,0: HCOLOR= 3 + CL * 2 
:A$ = "PREMI RETURN":H = 101:V = 188: GOSU 
B 840: PRINT CHR$ (7): WAIT - 16384,128: 
GOTO 3470: REM OPZIONI GRAFICHE 
2390 REM 

2400 REM CONFIGURA IL SISTEMA 

2410 REM 

2420 TEXT : HOME : PRINT TAB( 12)M3$: PRINT L$ 
: REM METTE L'INTESTAZIONE 
2430 VTAB 6: PRINT L$ 

2440 IF PT THEN GOSUB 490: GOTO 2460 
2450 GOSUB 500: GOTO 2500 
2460 IF GP THEN GOSUB 510: GOTO 2480 
2470 GOSUB 520: GOSUB 540: GOTO 2500 


2480 GOSUB 570: GOSUB 530 

2490 IF CL THEN GOSUB 550: GOTO 2510 

2500 GOSUB 560 

2510 VTAB 8: PRINT "PREMI <";: INVERSE : PRINT 
"ESC";: NORMAL : PRINT ">PER ACCETTARE I D 
ATI." 

2520 HTAB 1: VTAB 10: PRINT "<RETURN> PER CAMBI 
ARE I PARAMETRI";: CALL - 958: POKE - 16 
368,0: GET X$ 

2530 IF X$ = CHR$ (27) THEN 2820: REM SCRIVE 
SUL DISCO 

2540 IF X$ < > CHR$ (13) THEN 2520 

2550 VTAB 7: HTAB 1: CALL - 958 
2560 GOSUB 470: HTAB 1 

2570 VTAB 8: PRINT "HAI UNA STAMPANTE COLLEGATA 
?" : PRINT "(SI SUPPONE SLOT 1)": VTAB 8: H 
TAB 36: PRINT "SI'": HTAB 36: PRINT "NO" 
2580 A = 8 :B = 9:C = 36:D = 38: GOSUB 2760 
25 90 IF LINE = 1 THEN PT = 1 : GOSUB 4 90 : GOTO 2 
610 

2600 PT = 0:GP = 0 :GP$ = "": GOSUB 500: GOSUB 5 
20: GOSUB 540: GOTO 2730: REM SALTA LE DO 
MANDE CIRCA LA SCHEDA 

2610 VTAB 12: PRINT "SCHEDA STAMPANTE CON DUMP 
GRAFICO? SI'": HTAB 36: PRINT "NO" 

2620 A = 12 :B = 13: GOSUB 2760: IF LINE - 1 THE 
N GP = 1: GOSUB 510: GOTO 2640 
2630 GP = 0: GOSUB 520: GOSUB 540: GOTO 2730: R 
EM NIENTE DUMP GRAFICA SU SCHEDA 
2640 GP $ = "": VTAB 15: HTAB 1: PRINT "SCRIVI I 
L CODICE PER IL DUMP DELLA PAGI-NA GRAFICA 
1": PRINT "CON <RETURN> TERMINI:";: HTAB 
26 

2650 POKE - 16368,0: GET X$: IF X$ = CHR$ (13 
) AND LEN (GP$) = 0 THEN GP = 0 : GOTO 2 69 
0 

2660 IF ASC (X$) = 13 THEN 2700 

2670 IF ASC (X$) < 32 THEN PRINT " A "; CHR$ ( 

ASC (X$) + 64); :GP$ = GP$ + X$: GOTO 2650 
2680 PRINT X$;:GP$ = GP$ + X$: GOTO 2650 
2690 GOSUB 520: GOSUB 540: GOTO 2730 
2700 GOSUB 570: GOTO 2720 
2710 S$ = S$ + MID$ (GP$,I,1): NEXT 
2720 GOSUB 530 

2730 VTAB 19: HTAB 1: PRINT "CHE TIPO DI MONITO 
R ?" TAB( 34)"COLORI": PRINT TAB( 35)"MON 
O" 

2740 A = 19:B = 20:C = 34:D = 38: GOSUB 2760: I 

F LINE - 1 THEN CL = 1 : GOSUB 550: GOTO 27 

70 

2750 CL = 0: GOSUB 560: GOTO 2770 
2760 CALL CUR,A,B,C,D + 1:LINE = PEEK (4): RET 
URN 

2770 VTAB 7: CALL - 958: GOSUB 470 
2780 VTAB 10: HTAB 5: PRINT " ALLESTIMENTO OK ? 
": VTAB 14: HTAB 19: PRINT "SI"': HTAB 19: 
PRINT "NO" 

2790 CALL CUR,14,15,18,22 
2800 LINE = PEEK (4) 

2810 IF LINE = 2 THEN HOME : GOTO 2420 
2820 HOME : VTAB 10: PRINT TAB( 5)"SCRITTURA D 
ISCO - NON INTERROMPERE" 

2830 POKE 960,4: ONERR GOTO 4000 
2840 T$ = F$:F$ = "METEO.CONFIG" 

2850 PRINT D$OP$F$ 

2860 PRINT D$WR$F$ 

2870 PRINT PT: PRINT GP: PRINT GP$: PRINT CL: R 
EM STAMPANTE, SCHEDA, STRINGA, MONITOR 
2880 PRINT D$ 

2890 PRINT D$CL$ 

2900 F$ = T$: GOTO 1130: REM MENU' PRINCIPALE 
2910 CI = 0 : FOR I = 1 TO P: IF RP% (I) = 8 THEN 
RP% (I) = 9: REM CI E' L'OFFSET PER IL TR 
ACCIAMENTO MENSILE 
2920 NEXT : HOME : CALL 62450: HGR 
2930 POKE - 16302,0 

2940 HCOLOR= 3 + 2 * CL: SCALE= 1: ROT= 0: REM 
INIZIALI ZZA I PARAMETRI DELLA SCHERMATA 
2950 A = 16:B = 31:C = 150:D = 249: REM RETIC 
OLO 

2960 HPLOT B,A TO B,C TO D,C TO D,A: HPLOT B + 

1,A TO B + 1,C - 1 TO D - 1,C - 1 TO D - 1 

, A 

2970 HCOLOR= 3 

2980 A$ = "GRAFICA STAZIONE METEO":H = 60:V = 3 
: GOSUB 840 

2990 HPLOT 60,8 TO 209,8 
3000 IF PL = 2 THEN 2080 

3010 IF PL = 1 THEN FOR I = 0 TO 223 STEP 7: H 

PLOT B+l+I,CTOB+l+I,C+4+2* 

( INT (I / 10) = I / 10): NEXT : REM TACC 
HE GIORNALIERE SULL'ASSE X 
3020 FOR J = 0 TO 30 STEP 10:A$ = STR$ (J):V = 
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C + 10 :H = B + 70 * ( INT (J / 10)) - 7: 
GOSUB 840 : NEXT : REM METTE TACCHE OGNI 1 
0 GIORNI 

3030 HCOLOR= 2 * CL + 3:A$ = "(GIORNI)":H = 111 
:V = V + 2 : GOSUB 8 40: HCOLOR= 3 
3040 A$ = F$:H = 118 :V = V + 9: HCOLOR= 3 + CL 
* 3: GOSUB 840: HCOLOR= 3 
3050 IF P = 1 THEN A$ = RP$(RP%(1) - (RP%(1) = 
9)):V = C + 18:H = B - 7: GOSUB 840: GOTO 
3080: REM NIENTE CARATTERI DI TRACCIAMENT 
O CON UNO SOLO TRACCIABILE 
3060 A$ = "X= " + RP $( RP %{1) - (RP%(1) = 9)):V, 
= C + CI + 18:H = B - 17: GOSUB 840: REM 
SCRITTURA ORIZZONTALE SULLA SINISTRA 
3070 IF P = 2 THEN A$ = RP$(RP%{2) - (RP%(2) = 
9)) + M =0":H = D - 70: GOSUB 840: REM S 
CRITTURA ORIZZONTALE SULLA DESTRA 
3080 FOR Q = 1 TO P: REM PER OGNI SCELTA TRAC 
CIABILE 

3090 K = 0: REM CONTA I PASSI 

3100 ON RP%(Q) GOTO 3110,3110,3120,3120,3130,31 
40,3150,3160,3160 

3110 LO = - 30:HI = 120 :STP = 30:A2 = A: GOTO 

3170 

3120 LO = 28:HI = 31.5:STP = .5:A2 = A: GOTO 31 
70 

3130 LO = 0 : HI - 100:STP = 10:A2 = A + 9: GOTO 
3170 

3140 LO = 0 : HI = HK:STP = S1:A2 = A + 4: GOTO 3 
170 

3150 LO = 0 : HI = 30 :STP = 5:A2 = A: GOTO 3170 
3160 LO = 0 : HI = 100:A2 = A + 9:STP = 10 
3170 IF FL = 1 THEN RETURN : REM RIASSEGNA I 
VALORI ALTO/BASSO 

3180 FOR J = C - 1 - 150 / TIC%(RP%(Q)) TO A ST 
EP - 150 / TIC%(RP%(Q)) 

3190 HPLOT B + (Q = 2) * (D - B + 4) - 4,J TO B 

+ (Q * 2) * (D - B + 4) , J: NEXT 

3200 POKE 960,7: ONERR GOTO 4200 
3210 FOR J = LO TO HI STEP STP 
3220 A$ = STR$ (J) 

3230 IF (RP%(Q) = 3 OR RP%(Q) = 4 OR RP%(Q) = 6 
OR RP%(Q) =7) AND LEN (A$) <3 AND VAL 
(A$) > = 1 THEN A$ = A$ + ".0" 

3240 V-C-l-K* (3- (RP% (Q) = 3) - (RP%(Q 
Q) - 4) - (RP% (Q) = 6) + 2 * { (RP% (Q) = 7) 

) - 2 * { (RP% (Q) =5)) - 2 * ( ( RP % ( Q) = 9) 

)) * (150 / TIC%(RP%(Q))):H = (B - 7 * LE 

N (A$) - 7) + (Q = 2) * D + 5 - 4 * ((LEN 

(A$) < 4)): REM SCALA I VALORI NUMERICI 
3250 GOSUB 840 :K = K + 1 : NEXT 
3260 IF PL = 2 THEN NEXT : GOTO 2150 
3270 REM 

3280 REM TRACCIA I PUNTI 

3290 REM 

3300 Y1 = FN Y( VAL (W$(1,RP%(Q)))): IF W$(1,R 

P% (Q) ) = "" THEN Y1 = C:N1 = 1: REM COORD 

Y 

3310 XI = FN X(1): REM COORD X 
3320 DRAW 48 + 9 * (Q = 1) AT XI,Yl: REM METT 
E IL MARCATORE AL PUNTO 

3330 FOR I = 2 TO VAL (D$(M%)): REM CIASCUN 
GIORNO 

3340 X2 - FN X(I): REM RICEVE IL PUNTO SEGUEN 
TE 

3350 Y2 = FN Y( VAL (W$(I,RP%(Q)))): IF W$(I,R 
P% (Q) ) = "" THEN Y2 = FN Y(LO):N2 = 1 : RE 
M FLAG DI VALORE NULLO=N2 
3360 REM IF Y2 < A THEN Y2 = A 

3370 REM IF Y2 > C THEN Y2 - C: GOTO 3420: RE 

M CONTROLLA I LIMITI DI TRACCIAMENTO 
3380 IF NI OR N2 THEN.3390 
3390 HPLOT XI,Yl TO X2,Y2 
3400 REM 

3410 DRAW 48 + 9 * (Q = 1) AT X2,Y2: REM METT 
E IL MARCATORE AL PUNTO 

3420 Yl = Y2:X1 = X2:N1 = N2:N2 = 0: REM CONS 
ERVA L'ULTIMO PUNTO DI TRACCIAMENTO—RICEV 
E IL PUNTO SEGUENTE 

3430 NEXT I: REM VALORE DEL GIORNO SEGUENTE 
3440 NEXT Q: REM SCELTA TRACCIABILE SEGUENTE 
SULL'ASSE DESTRO 

3450 HCOLOR= 3 + CL * 2:A$ = "PREMI RETURN":H = 
101:V = 188: GOSUB 840: PRINT CHR$ (7) 
3460 WAIT - 16384,128: REM CHE COSA FARE? 

3470 TEXT : HOME : PRINT TAB( 12)"UTILITÀ' GRA 
FICHE": PRINT L$: HTAB 1 

3480 VTAB 6: PRINT TAB( 14)"VEDERE GRAFICA": P 
RINT : PRINT TAB ( 13)"SALVARE GRAFICA" 
3490 PRINT : PRINT TAB( 13)"CARICARE GRAFICA" 
3500 PRINT : PRINT TAB( 12)"TRACCIARE DI NUOVO 

3510 PRINT : PRINT TAB( 14)M6$ 


3520 IF (PT = 1 AND GP = 1 AND GP$ < > "") THE 

N PRINT : PRINT TAB ( 13)"STAMPARE GRAFIC 

A" 

3530 PRINT : PRINT TAB( 13)"MENU PRINCIPALE" 
3540 GOSUB 470 
3550 CALL CUR,6,20,11,30 
3560 LINE = ( PEEK (4) + 1) / 2 
3570 S% - LINE: REM CARICA IL FLAG DI FILE 

3580 ON LINE + (LINE = 6 AND PT = 0 AND GP = 0) 

GOTO 3590,3610,3800,3850,3600,3870,3900 
3590 POKE - 16300,0: POKE - 16297,0: POKE - 
16302,0: POKE - 16304,0: GOTO 3460 
3600 GOSUB 600: GOTO 3470: REM CAMBIO DEL DRI 
VE? 

3610 HOME : GOSUB 860: HTAB 11: PRINT "SALVARE 
IL FILE GRAFICO": PRINT L$: GOSUB 470 
3620 VTAB 9: HTAB 12: PRINT " NOME GRAFICO": H 
TAB 12: PRINT " CATALOG": HTAB 12: PRI 

NT " OPZIONI GRAFICHE" 

3630 CALL CUR,9,11,12,28 

3640 LINE = PEEK (4): ON LINE GOTO 3650,3740,3 
7 90 

3650 HOME 

3660 X$ = "": VTAB 3: CALL - 958: VTAB 10: HTA 
B 11: PRINT "NOME GRAFICO": PRINT TAB( 6) 
"(10 CARATTERI MAX + '.PIC')": VTAB 12: FO 
R I = 1 TO 10:X$ = X$ + CHR$ (95): NEXT 
3670 PRINT : PRINT "NOME -> ";X$: VTAB 13: HTAB 
9: INPUT "";N$ : IF LEN (N$) > 10 + 4 * ( 
S% = 3) + 4 * ( RIGHT$ (N$,4) = ".PIC" AND 
S% = 2) THEN 3660 
3680 IF N$ = "" THEN 3470 

3690 IF ASC (N$) < 65 OR ASC (N$) > 90 THEN 
PRINT CHR$ (7): GOTO 3660 
3700 IF S% = 3 THEN S% = 0: GOTO 3810: REM TRA 
CCIAMENTO DA MESE A MESE 

3710 POKE 960,5: ONERR GOTO 4000: REM ERRORE 
DISCO? 

3720 VTAB 15: IF RIGHT$ (N$,4) < > ".PIC" THE 

N N$ ~ N$ + ".PIC" 

3730 X$ = N$: PRINT "NOME FILE=";X$: PRINT : PR 
INT D$BS$X$AD$LN$: GOTO 3470 
3740 POKE 960,7: ONERR GOTO 4000 
3750 HOME : PRINT :CA$ = "CATALOG":PR = 4 * ( P 
EEK (48896) = 76): PRINT CHR$ (4); LEFT$ 
(CA$,7 - PR);DV$ : GET CH$: POKE 216,0: POK 
E 960,0: GOTO 3610 
3760 IF S% = 2 THEN 3610 
3770 IF S% = 3 THEN 3800 
3780 GOTO 3610 
3790 HOME : GOTO 3470 

3800 HOME : HTAB 11: PRINT "CARICARE FILE GRAFI 
CO": PRINT L$: GOSUB 470: GOTO 3620 
3810 POKE 960,5: ONERR GOTO 4110 
3820 VTAB 15: PRINT :X$ - N$: IF RIGHTS (X$,4) 
< > ".PIC" THEN X$ = X$ + ".PIC" 

3830 PRINT "NOME FILE=";X$: PRINT : PRINT D$BL$ 
X$AD$: GOTO 3470 

3840 VTAB 20: INVERSE : PRINT "ERRORE DISCO O N 
OME FILE ERRATO PROVA DI NUOVO": N 

ORMAL :V = 22: GOSUB 810: POKE 216,0: POKE 
960,0: GOTO 3610 

3850 HOME : ON PL GOTO 1470,1730: REM TRACCIA 
DI NUOVO 

3860 GOTO 1130: REM PER PLOl O 2 
3870 IF GP = 0 THEN 1130: REM MENU' PRINCIPAL 
E 

3880 HOME : GOSUB 860: VTAB 10: PRINT "ASSICURA 
TI CHE LA STAMPANTE SIA ACCESA.." 

3890 V = 23: GOSUB 810: PRINT : PRINT D$"PR#1": 

PRINT GP$: PRINT : PRINT D$"PR#0": GOTO 3 
470 

3900 GOTO 1130: REM MENU' PRINCIPALE 
3910 DATA GEN,31,FEB,29,MAR,31,APR,30,MAG,31,G 
IU,30,LUG,31,AGO,31,SET,30,OTT,31,NOV,30,D 
IC, 31, FINE, 0 : REM M$(),D$() 

3920 DATA " TEMP. MAX"," TEMP. MIN","PRESS. 

MAX","PRESS. MIN"," % NUVOL. ","PIOGGI 
A POL","NEVE POL'V'VEL. VENTO"," FIN 
E" 

3930 DATA 17,17,16,16,12,28,34,12,12 
3940 REM ROUTINES ONERR 
3950 REM 

3960 IF PEEK (222) = 6 THEN TEXT : HOME : VTA 
B 10: PRINT "IL FILE BINARIO NON E' SUL DI 
SCO..": PRINT : PRINT TAB( 10)"NON POSSO 
CONTINUARE": POKE 216,0: END : REM NIENTE 
FILE DI CURSORE O DI TAVOLA DELLE FIGURE 

3970 REM 

3980 REM GESTIONE DEGLI ERRORI 

3990 REM 

4000 GOSUB 880: REM PULISCE ONERR 


(Continua: Listato 2. Meteo Grafici) 


a 

0 

ig 

d 

d 

o 

p 

Q 

O 

D 

0 

d 

o: 

H 

U 

U 

p 

2 

fi 

p 

p 

O; 

a 


104 










o 

fi 

fi 

fi 

fi 

fi 

fi 

fi 

fi 

o 

o 

o 

fi 

fi 

fi 

o 

o 

0 

o 

fi 

Q 

O 

o 


(segue: Listato 2. Meteo Grafici) 


LISTATI PER APPLE II 


4010 IF ER = 6 THEN X$ = "NIENTE DATI NEL FILE 
" + LEFT$ (F$,3) + + STR$ (Y%) :Y$ = 

"CREA DATI NEL PROGRAMMA 'STAZIONE METEO'" 
:F$ - GOTO 4060 

4020 IF ER = 4 THEN X$ = "DISCO PROTETTO IN SCR 
ITTURA":Y$ = "TOGLI PROTEZIONE SCRITTURA": 
GOTO 4060 

4030 IF ER = 8 THEN X$ = "PROBLEMA I/O DISCO":Y 
$ = "CONTROLLA SPORTELLO DRIVE O POSIZIONE 
DISCO":F$ = GOTO 4060 

4040 IF ER = 9 THEN X$ = "DISCO COMPLETO":Y$ = 
"INSERIRE UN ALTRO O CAMBIARE DRIVE": GOTO 
4060 

4050 VTAB 10: PRINT " ERRORE N."; PEEK (222)" A 
LINEA PEEK (219) * 256 + PEEK (218): 
PRINT : PRINT "SCEGLI AZIONE APROPRIATA ": 
GOTO 4080 

4060 PRINT TAB ( 10)"*** ERRORE DISCO ***": PRI 
NT L$ 

4070 VTAB 6: INVERSE : PRINT "PROBLEMA:": NORMA 
L : PRINT : PRINT X$: VTAB 13: INVERSE : P 
RINT "POSSIBILE SOLUZIONE:": NORMAL : PRIN 
T : PRINT Y$ 

4080 V = 23: GOSUB 810 

4090 ON PEEK (960) GOTO 4140,4140,1130,2420,34 
70,3470,3610 

4100 POKE 960,0: GOTO 1130: REM MENU' PRINCIPA 
LE 

4110 GOSUB 880: IF ER = 6 THEN X$ = "IL FILE NO 
N ESISTE":Y$ = "RIPROVA": GOTO 4060 

4120 IF ER = 13 THEN X$ « "IL FILE NON E' UN FI 
LE D'IMMAGINE":Y$ = "RIPROVA": GOTO 4060 

4130 GOTO 4020 


4140 

4150 

4160 

4170 

4180 

4190 

4200 

4210 


4220 

4230 

4240 

4250 


4260 

4270 


REM 


RUN 
REM 
REM 
REM 

IF PEEK (222) = 
FIGURATO 
GOTO 3980: REM 
GOSUB 880: IF ER 


RIESEGUE IL PROGRAMMA 


NIENTE FILE DI CONFIGURAZIONE 

6 THEN 2420: REM NON CON 


ALTRO ERRORE 
< > 77 THEN 4080 

PRINT : VTAB 10: PRINT "ELIMINO VECCHIE ST 
RINGHE...UN MOMENTO..":X = FRE (0):V = 23 
: GOSUB 810: POKE 216,0: GOTO 2910 
ER = PEEK (222): IF ER = 6 THEN 4240 
GOTO 4020 

VTAB 10: PRINT " IL PROGRAMMA STAZIONE.MET 
EO NON E' SU QUESTO DISCO" 

VTAB 12: PRINT TAB( 11)"PROVA DI NUOVO (S 
/N)";: INPUT G$: IF G$ < > "N" AND G$ < 

> "S" THEN VTAB 11: CALL - 958: PRINT C 
HR$ (7): GOTO 4250 
IF G$ = "S" THEN 1260 
GOTO 4100 

(Fine) 


Checksum del listato 2 

APPLE CHECKER 3.0 

NOME FILE: METEO.GRAFICI 

TIPO: A 

LUNGHEZZA: 3375 
CHECKSUM : 96 


□ 


o 

o 

o 

o 

o 

ò 

o 

I 

o 

Q 

B 


Listato 3. Cursor Bar 


SOURCE FILE: 
0000 : 

0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 


CURSOR.BAR.SOURCE 
*********** 

2 ;* 


**************** 


3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 
23 


CURSOR.BAR 
BY MARK. R. CRAVEN 

MODIFIED FROM 
CURSOR.BAR 
BY JIM GANZ 
COPYRIGHT (C) 1987 
BY APPLICANDO & 
MICROSPARC, INC. 

SYNTAX: 

CALL MEM,TOPLIM,BOTLIM, 
LMRGIN, RMRGIN 


DOS 3.3 


ProDOS 


Apple Ile 


Apple Ile 


TOPLIM=(1-24) 
LMRGIN=(1-40) 


BOTLIM=l-24 ) 
RMRGIN=(1-40) 


Returns with LINE = PEEK (4) 
e.g. CALL 768,2,18,10,30 


APPLESOFT TOOLKIT ASSEMBLER 


0000 

24 

;* 



★ 

0000 

25 

. ****** 

**************** 

★★★★★★★★★★ 

0000 

26 

;* Equates 


* 

0000 

27 

. ****** 

***** 

********************* 

0000 

28 

; 




0000 

29 

; . 




0000 

30 

; 




0000 

31 

; 




0000 

32 

; 




FBC1 

33 

BASCALC 

EQU 

$FBC1 


0028 

34 

BASL 

EQU 

$28 


0003 

35 

BOTLIM 

EQU 

$03 


DEBE 

36 

CHKCOM 

EQU 

$DEBE 


COIO 

• 37 

CLRKBD 

EQU 

$C010 


DD67 

38 

FRMNUM 

EQU 

$DD67 


E6FB 

39 

CONINT 

EQU 

$E6FB 


cooo 

40 

KYBD 

EQU 

$C000 


0004 

41 

LINE 

EQU 

$04 


0300 

42 

MEM 

EQU 

$300 


0002 

43 

TOPLIM 

EQU 

$02 


0000 

44 

; 




0006 

45 

LMRGIN 

EQU 

$06 

;LEFT MARGIN 

0007 

46 

RMRGIN 

EQU 

$07 

;RIGHT MARGIN 

0000 

47 

; 





• NEXT OBJECT FILE NAME IS i 

CURSOR.BAR 


0300: 

48 


ORG 

MEM 


0300: 

49 

; 





<— NEW LINE 


(Continua: Listato 3. Cursor Bar) 


g 

D 

o 

O 

fi- 

q 

o 

o 

D 


105 








































Q 

(segue: Listato 3. Cursor Bar) 

LISTATI PER APPLE II 


o 

0300: 



50 

.******************** 

************ 


D 

0300: 



51 

;* Initialize limits * 


o 

0300: 

0300: 



52 

53 

. *********** 

********* 

************ 


0300:20 

BE 

DE 

54 

JSR 

CHKCOM 

;Advance TXTPTR past comma 




0303:20 

67 

DD 

55 

JSR 

FRMNUM 

;Get variable/expression 



□ 

0306:20 
0 3 0 9 :CA 

FB 

E6 

56 

57 

JSR 

DEX 

CONINT 

;Convert to integer in X 


Oi 

030A:86 

02 


58 

STX 

TOPLIM 




030C: 86 

04 


59 

STX 

LINE 




D 

030E:20 

BE 

DE 

60 

JSR 

CHKCOM 



y 

0311:20 

67 

DD 

61 

JSR 

FRMNUM 



0314:20 

FB 

E6 

62 

JSR 

CONINT 




0317 :CA 



63 

DEX 






0318:86 

03 


64 

STX 

BOTLIM 



o. 

o 

031A:20 

BE 

DE 

65 

JSR 

CHKCOM 

; <-- NEW LINES 65-74 


031D: 20 

67 

DD 

66 

JSR 

FRMNUM 



0320:20 

FB 

E6 

67 

JSR 

CONINT 




0 3 2 3 :CA 



68 

DEX 





□ 

0324:86 

06 


69 

STX 

LMRGIN 

;Left Margin Value 


c 

0326:20 

BE 

DE 

70 

JSR 

CHKCOM 



0329:20 

67 

DD 

71 

JSR 

FRMNUM 




032C:20 

FB 

E6 

72 

JSR 

CONINT 




Q 

0 3 2 F:CA 



73 

DEX 




D : 

0330:86 

0332: 

07 


74 

75 

STX 

RMRGIN 

;Right Margin Value 


0332: 



76 

*********** 

********* 

************ 




0332: 



77 

* Highlight 

cursor line * 



O 

0332: 



78 

* (change NORMAL to 

INVERSE) * 


P 

0332: 

0332: 



79 

80 

******************** 

************ 



0332 :A5 

04 


81 

START LDA 

LINE 




□ 

0334:20 

CI 

FB 

82 

JSR 

BASCALC 

; Set BASL,H 


o 

033 7 :A4 

07 


83 

LDY 

RMRGIN 

; Right Margin <— NEW LINE 


033 9 :B1 

28 


84 

CLOOP1 LDA 

(BASL),Y 

;Get a Character 



033B:C9 

AO 


85 

CMP 

# $A0 

;Is it a SPACE? 



2 

033D:DO 

05 


86 

BNE 

CBAR 



o 

033F: 88 
0340:10 

F7 


87 

88 

DEY 

BPL 

CLOOP1 

; Test for blank line 


0342:30 

13 


89 

BMI 

LEFT 





0344 :A4 

07 


90 CBAR LDY 

RMRGIN 




p 

034 6 :B1 

28 


91 CL00P4 LDA 

(BASL), Y 



o 

0348:29 

3F 


92 

AND 

#$3F 

;Change it to inverse 


034A:91 

28 


93 

STA 

(BASL)/Y 

;and put it back. 



034C: 88 



94 

DEY 





p 

034D:C4 

06 


95 

CPY 

LMRGIN 

/Compare to left margin <—NEW 

LINE 

0 

034F:10 
0351: 

F5 


96 

97 

BPL 

CLOOP4 

/Loop till end of line 



0351: 



98 

■ ******************** 

************ 




0351: 



99 

;* Wait for 

keypress 

* 


o 

y 

0351: 

0351: 



100 

101 

• *********** 

********* 

************ 


0351:AD 

10 

CO 

102 

LDA 

CLRKBD 

/Clear keyboard 



0354:AE 

00 

CO 

103 KLOOP LDX 

KYBD 

/Get keypress 



i 

0357 :EO 

88 


104 LEFT CPX 

#$88 

;Is it a LEFT ARROW? 


p 

0359:FO 

2A 


105 

BEQ 

CONT 



035B:EO 

8B 


106 

CPX 

#$8B 

/ Is it a DOWN ARROW? <— NEW 

LINE 


035D:FO 

26 


107 

BEQ 

CONT 




1 

035F:EO 

95 


108 

CPX 

#$95 

/Is it a RIGHT ARROW? 


O 

0361:FO 

22 


109 

BEQ 

CONT 



0363 :EO 

8A 


110 

CPX 

# $8A 

/Is it an UP ARROW? <— NEW LINE 


0365 :FO 

1E 


111 

BEQ 

CONT 





0367 :EO 

8D 


112 

CPX 

# $8D 

/Is it a RETURN char? 



D 

0369:D0 

036B: 

E9 


113 

114 

BNE 

KLOOP 

/None of thè above. 


D 

036B: 



115 

*********** 

********* 

★★★★★★★★★★★★ 



036B: 



116 

* Return to 

caller 

★ 



O 

036B: 



117 

*********** 

********************* 


p 

036B: 
036B:A4 

07 


118 

119 

LDY 

RMRGIN 

/Reset last line to NORMAL <—NEW LINE 


036D:B1 

28 


120 CLOOP3 LDA 

(BASL),Y 




O 

. 036F:09 

80 


121 

ORA 

#$80 



Ili 

0371:91 

0373:88 

28 


122 

123 

STA 

DEY 

(BASL),Y 



0374 :C4 

06 


124 

CPY 

LMRGIN 

/Check left margin <— NEW LINE 


0376:10 

F5 


125 

BPL 

CLOOP3 




s 

0378:A5 
037A:38 

04 


126 

127 

LDA 

SEC 

LINE 



o; 

037B:E5 

02 


128 

SBC 

TOPLIM 




037D: 85 

04 


129 

STA 

LINE 




O 

037F:E6 

04 


130 

INC 

LINE 



pi 

0381 :AD 

10 

co 

131 

LDA 

CLRKBD 



0384:60 



132 

RTS 


/Exit 



0385: 



133 







0385: 



134 

******************************** 



P 

0385: 



135 

* Lowlight 

cursor line * 


O: 

0385: 



136 

* (Change INVERSE to 

NORMAL) * 


0385: 



137 

*********** 

*********! 

************ 



0385: 



138 






D| 

038 5 : A4 

07 


139 CONT LDY 

RMRGIN 

/ Lo ad right margin value <—NEW 

LINE 

B 

0387 :B1 

28 


140 CLOOP2 LDA 

(BASL),Y 


0389:09 

80 


141 

ORA 

#$80 

/Change to NORMAL 



038B:91 

28 


142 

STA 

(BASL), Y 




a 








(Continua: Listato 3. Cursor Bar) 

O: 
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0 

o| 

D 

3 

3 

o 

jo 

o 

I 

5 

o 

D 

jo 

6 
g 

0 

0 

I 

s 

Q 

O 

D 

HI 


(segue: Lis ta to 3. Cursor Bar) 


LISTATI PER APPLE II 


038D: 88 


143 

DEY 


038E:C4 

06 

144 

CPY 

LMRGIN 

0390:10 

F5 

145 

BPL 

CLOOP2 

0392:A5 

04 

146 

LDA 

LINE 

0394 :E0 

95 

147 

CPX 

#$95 

0396:F0 

12 

148 

BEQ 

RCONT 

0398 :E0 

8A 

149 

CPX 

#$8A 

039A:F0 

0E 

150 

BEQ 

RCONT 


039C: 

039C: 

039C: 

039C: 

039C: 


Check left margin <— NEW LINE 


;Right arrow 


151 

152 

153 

154 

155 


. ******* 


****************** 


i* Move cursor up one line 


************* 


039C:C5 

02 

156 


CMP 

TOPLIM 

039E:D0 

06 

157 


BNE 

LCONT 

03A0:A5 

03 

158 


LDA 

BOTLIM 

03A2:85 

04 

159 


STA 

LINE 

03A4:D0 

8C 

160 


BNE 

START 

03A6:C6 

04 

161 

LCONT 

DEC 

LINE 

03A8:10 

88 

162 


BPL 

START 

03AA: 


163 

; 



03AA: 


164 

• *********** 

★★★★★★★1 

03AA: 


165 

; * Move 

cursor down 

03AA: 


166 

. ****** 

* * * * * 

*******i 

03AA: 


167 

; 



03AA:C5 

03 

168 

RCONT 

CMP 

BOTLIM 

03AC: DO 

06 

169 


BNE 

RCONT1 

03AE:A5 

02 

170 


LDA 

TOPLIM 

03B0: 85 

04 

171 


STA 

LINE 

03B2:10 

04 

172 


BPL 

JUMP 

03B4:E6 

04 

173 

RCONT1 

INC 

LINE 

03B6: DO 

00 

174 


BNE 

JUMP 

03B8:4C 

32 03 

175 

JUMP 

JMP 

START 

03BB: 


176 




03BB: 


177 

r 

03BB: 


178 

• * 

/ 

LENGTH=$AC 

03BB: 


179 

. ****** 

* ** ** 

*★*★***! 


;Are we above thè top line? 
;No, so move up one line. 
;Wraparound to bottom line 

;Always. 


********** 


;Are we below thè bottom line? 
;No, so move down one line 
;Wraparound to top line. 


******** 


SUCCESSFUL ASSEMBLY: NO ERRORS 


Checksum del listato 3 

APPLE CHECKER 3.0 
NOME FILE: CURSOR.BAR 
TIPO: B 

LUNGHEZZA: 00BB 
CHECKSUM : 6B 


(Fine) 


Listato 4. Meteo. Figure 


803.B15 


0803- 

40 

00 

82 

00 

84 




0808- 

00 

8B 

00 

91 

00 

9F 

00 

AD 

0810- 

00 

BA 

00 

C6 

00 

■C9 

00 

D4 

0818- 

00 

DD 

00 

EC 

00 

F3 

00 

F8 

0820- 

00 

FD 

00 

00 

01 

07 

01 

15 

0828- 

01 

1D 

01 

28 

01 

35 

01 

42 

0830- 

01 

4E 

01 

5A 

01 

65 

01 

71 

0838- 

01 

7D 

01 

80 

01 

84 

01 

8E 

0840- 

01 

96 

01 

A0 

01 

AA 

01 

B7 

0848- 

01 

C3 

01 

CF 

01 

DC 

01 

E8 

0850- 

01 

F4 

01 

00 

02 

OC 

02 

18 

0858- 

02 

22 

02 

2A 

02 

37 

02 

40 

0860- 

02 

4D 

02 

5A 

02 

66 

02 

70 

0868- 

02 

7E 

02 

8C 

02 

97 

02 

A0 

0870- 

02 

AB 

02 

B6 

02 

C2 

02 

CE 

0878- 

02 

D8 

02 

E5 

02 

F3 

02 

FB 

0880- 

02 

08 

03 

0E 

03 

00 

00 

B6 

0888- 

04 

40 

18 

24 

04 

00 

18 

24 

0890- 

OD 

36 

04 

00 

83 

24 

6C 

36 

0898- 

FF 

16 

2D 

25 

OC 

16 

17 

FE 

08A0- 

24 

00 

24 

74 

39 

3F 

17 

0E 

08A8- 

OD 

0E 

1E 

27 

1E 

77 

21 

00 

08B0- 

18 

38 

2C 

56 

09 

B8 

17 

17 

08B8- 

17 

4D 

35 

27 

00 

20 

1C 

17 

08C0- 

76 

1E 

76 

65 

1C 

8C 

B1 

04 

08C8- 

00 

20 

24 

00 

1B 

40 

18 

09 

08D0- 

17 

1E 

36 

0E 

0E 

04 

00 

40 

08D8- 

18 

0E 

0E 

36 

1E 

1E 

04 

00 

08E0- 

24 

34 

50 

FI 

1E 

18 

1C 

96 

08E8- 

62 

OD 

0E 

1F 

B4 

04 

00 

2D 

08FO- 

DF 

27 

48 

B6 

26 

00 

12 

30 

08F8- 

1E 

04 

00 

1B 

2D 

2D 

04 

00 

0900- 

92 

04 

00 

40 

B9 

17 

17 

17 

0908- 

04 

00 

oc 

OC 

1C 

3F 

1E 

36 


0910- 

2E 

1E 

0E 

2D 

OC 

24 

24 

00 

0918- 

24 

BC 

96 

31 

3E 

OD 

04 

00 

0920- 

65 

E4 

3F 

1E 

96 

FI 

CE 

2D 

0928- 

2D 

04 

00 

25 

05 

20 

3F 

3F 

0930- 

96 

4A 

09 

F6 

3F 

1C 

04 

00 

0938- 

2A 

36 

04 

28 

07 

20 

24 

17 

0940- 

17 

17 

2E 

04 

00 

28 

1F 

27 

0948- 

2C 

2D 

B5 

32 

F6 

3F 

1C 

04 

0950- 

00 

39 

3F 

2C 

60 

2D 

96 

32 

0958- 

1E 

3F 

1C 

24 

00 

1A 

OC 

OC 

0960- 

OC 

3C 

3F 

B7 

92 

31 

04 

00 

0968- 

39 

E7 

2C 

28 

75 

B6 

F6 

3F 

0970- 

07 

20 

04 

00 

2D 

24 

07 

38 

0978- 

F7 

76 

4E 

FI 

1E 

3F 

04 

00 

0980- 

B0 

04 

00 

B0 

F6 

04 

00 

1B 

0988- 

OC 

OC 

OC 

96 

92 

1C 

1C 

04 

0990- 

00 

D8 

2D 

2D 

D6 

39 

3F 

27 

0998- 

00 

09 

07 

38 

E0 

96 

4A 

1E 

0 9A0- 

1E 

04 

00 

92 

04 

20 

OC 

OC 

0 9A8- 

1C 

3F 

1E 

04 

00 

30 

2E 

2C 

09B0- 

24 

1C 

3F 

1E 

36 

36 

0E 

2D 

09B8- 

25 

00 

2A 

25 

3C 

38 

B8 

17 

09C0- 

36 

F5 

6E 

09 

24 

00 

3F 

24 

09C8- 

2C 

2D 

15 

F6 

0E 

F6 

3F 

27 

09D0- 

24 

00 

09 

40 

03 

1C 

3F 

1E 

09D8- 

36 

36 

15 

2D 

OC 

04 

00 

1B 

09E0- 

24 

2C 

2D 

0E 

36 

36 

17 

3F 

09E8- 

27 

24 

00 

25 

40 

3F 

3F 

36 

09F0- 

2E 

1E 

36 

2D 

2D 

04 

00 

19 

09F8- 

2D 

40 

18 

3F 

3F 

36 

2E 

1E 

0A00- 

36 

04 

00 

0A 

46 

36 

3F 

3F 

0A08- 

20 

24 

2C 

28 

2D 

04 

00 

2D 

0A10- 

24 

FC 

1B 

36 

2E 

1E 

36 

4D 

0A18- 

21 

24 

00 

4Q 

18 

2B 

F5 

36 

0A20- 

36 

3E 

OD 

04 

00 

93 

73 

2D 

0A28- 

OC 

24 

24 

24 

00 

63 

OC 

OC 

0A30- 

DF 

33 

36 

36 

6E 

09 

07 

38 

0A38- 

20 

00 

1B 

24 

B4 

12 

36 

2D 

0A40- 

2D 

04 

00 

64 

05 

30 

36 

36 


0A48- 

FE 

1B 

24 

24 

24 

OE 

04 

00 

0A50- 

18 

OE 

OE 

56 

24 

24 

24 

DF 

0A58- 

33 

36 

36 

26 

00 

1B 

24 

05 

0A60- 

28 

75 

36 

36 

1E 

3F 

1C 

24 

0A68- 

00 

65 

3C 

38 

3F 

36 

2E 

l'E 

0A70- 

36 

04 

00 

8A 

11 

1C 

07 

68 

0A78- 

24 

3C 

38 

F7 

36 

36 

OE 

25 

0A80- 

00 

65 

3C 

38 

37 

18 

36 

2E 

0A88- 

OE 

OE 

OE 

DF 

23 

24 

00 

75 

0A90- 

F6 

3F 

1C 

44 

1C 

64 

2D 

OE 

0A98- 

04 

00 

24 

3C 

6F 

29 

96 

DA 

0AA0- 

36 

04 

00 

1B 

24 

6C 

09 

36 

0AA8- 

36 

F6 

3F 

1C 

24 

00 

92 

OC 

OABO- 

OC 

24 

24 

DF 

33 

36 

AE 

04 

0AB8- 

00 

76 

OE 

24 

24 

24 

DF 

33 

0AC0- 

36 

36 

66 

04 

00 

OC 

OC 

FC 

0AC8- 

1B 

AE 

16 

17 

6E 

09 

E4 

04 

0AD0- 

00 

07 

68 

OC 

FC 

1B 

B6 

4A 

0AD8- 

36 

04 

00 

17 

1E 

2E 

2D 

25 

0AE0- 

40 

18 

2B 

20 

3F 

3F 

04 

00 

0AE8- 

1B 

24 

2C 

2D 

F5 

1B 

36 

36 

0AF0- 

2E 

2D 

DF 

23 

24 

00 

19 

1C 

0AF8- 

1C 

96 

49 

OE 

04 

00 

21 

24 

0B00- 

3F 

6F 

09 

36 

36 

36 

27 

B4 

0B08- 

3B 

27 

00 

B8 

17 

4D 

El 

04 

OBIO- 

00 

92 

1F 

6D 

25 

00 




Checksum del listato 4 

APPLE CHECKER 3.0 
NOME FILE: METEO.FIGURE 
TIPO: B 

LUNGHEZZA: 0313 
CHECKSUM : B1 


(Fine) 


II 

ig 

io 

| 

o 

P 

p 

| 

| 

Ip 

tì 

o 

ID 

D 

o 

p 

D 

3 

o 

3 

i 

DI 
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Listato 1. Super Sort 


LISTATI PER APPLE II 


SOURCE 

FILE: 

SUPER 


SORT.S 

uuuu 

0000 




2 


SUPER.SORT 


0000 




3 


BY 

DOUG SPRINKLE 


0000 

: 



4 


COPYRIGHT 

(C) 1987 


0000 




5 


BY 

APPLICANDO & 


0000 

: 



6 


MICROSPARC, INC. 


0000 




7 














0000 

: 



8 






0000 




9 


TOOL 

KIT ASSEMBLER 


0000 




10 






00A5 

: 



11 

ARG 

EQU 

$A5 

; ARG 

D412 

: 



12 

ERROR 

EQU 

$D412 

;APPLESOFT ERROR ROUTINE 

DFE3 




13 

PTRGET 

EQU 

$DFE3 

;VAR FIND ROUTINE 

EB23 




14 

MOVML 

EQU 

$EB23 

; PACK FAC ROUTINE 

EAF9 

: 



15 

MOVFM 

EQU 

$EAF9 

;Y,A TO FAC ROUTINE 

EBB2 

: 



16 

FCOMP 

EQU 

$EBB2 

; COMPARE ROUTINE 

006F 

: 



17 

FRETOP 

EQU 

$6F 


0073 




18 

HIMEM 

EQU 

$73 


00B8 




19 

TXTPTR 

EQU 

$B8 

;TEXT POINTER 

00B8 




20 

TP 

EQU 

$B8 

;SAME AS TXTPTR 

0 0FB 




21 

FP 

EQU 

$FB 

;FREE POINTER 

03F6 

: 



22 

AMPERV 

EQU 

$3F6 

;& VECTOR 

0000 

: 



23 






0000 

: 



24 






— 

- NEXT 

OBJECT FILE NAME IS 

SUPER.SORT 


8 FE3 




25 



ORG 

$8FE3 

;TUCK UNDER DOS/PRODOS 

8FE3 

A9 

00 


26 

SETUP 

LDA 

#>START 

; SET HIMEM 

8FE5 

85 

73 


27 



STA 

HIMEM 


8FE7 

85 

6F 


28 



STA 

FRETOP 


8FE9 

8D 

F6 

03 

29 



STA 

AMPERV 

; SET & VECTOR 

8FEC 

A9 

90 


30 



LDA 

#<START 


8FEE 

8D 

F7 

03 

31 



STA 

AMPERV+1 


8FF1 

AE 

00 

BF 

32 



LDX 

$BF00 

;ID BYTE 

8FF4 

E0 

4C 


33 



CPX 

#$4C 


8FF 6 

DO 

03 


34 



BNE 

MEMSTR 

; DOS 3.3 

8FF8 

38 



35 



SEC 


;PRODOS 

8FF 9 

E9 

04 


36 



SBC 

#4 

; 4 PAGES FOR GP BUFFER 

8FFB 

85 

74 


37 

MEMSTR 

STA 

HIMEM+1 


8FFD 

85 

70 


38 



STA 

FRETOP+1 


8FFF 

60 



39 



RTS 


; RTN TO BASIC 

9000 




40 

; 





9000 

20 

62 

90 

41 

START 

JSR 

TPSAV 

; SAVE TEXT PNTR 

9003 

20 

83 

91 

42 



JSR 

ZERO 

; ZERO DATA TABLE 

9006 

20 

5A 

91 

43 

SI 

JSR 

FPSET 


9009 

20 

78 

90 

44 



JSR 

STVAR 

; READ INPUT LINE 

900C 

A9 

90 


45 



LDA 

#$90 

; RESET TO ASCEND 

900E 

8D 

58 

92 

46 



STA 

PA3 5 


9011 

AD 

45 

95 

47 



LDA 

ADFLG 


9014 

F0 

05 


48 



beq 

S15 


9016 

A9 

B0 


49 



LDA 

# $B0 

;DESCEND 

9018 

8D 

58 

92 

50 



STA 

PA3 5 


901B 

AD 

44 

95 

51 

S15 

LDA 

FPOFF 

;STORE VTYPE 

901E 

4A 



52 



LSR 

A 

;DIV BY 2 

901F 

AA 



53 



TAX 



9020 

AD 

89 

94 

54 



LDA 

VARTYPE 

;GET TYPE OF LAST VAL 

9023 

9D 

47 

95 

55 



STA 

VTYPE/X 


9026 

20 

C5 

90 

56 



JSR 

TPANDY 

;ADD TP AND Y REG 

9029 

EE 

44 

95 

57 



INC 

FPOFF 


902C 

EE 

44 

95 

58 



INC 

FPOFF 


902F 

AD 

85 

94 

59 



LDA 

EOL 

;CHK FOR END OF LINE 

9032 

DO 

D2 


60 



BNE 

SI 


9034 

A2 

OF 


61 



LDX 

#15 

; SET ARLAST TO ARO 

9036 

BD 

8A 

94 

62 

S2 

LDA 

ARO, X 


9039 

9D 

35 

95 

63 



STA 

ARLAST,X 


903C 

CA 



64 



DEX 



903D 

10 

F7 


65 



BPL 

S2 

;NOT DONE 

903F 

20 

DO 

90 

66 



JSR 

VARTERM 

; TERMINATE EACH VARIABLE 

9042 

20 

8E 

91 

67 



JSR 

SORT 

; DO SORT 

9045 

20 

6D 

90 

68 



JSR 

TPRES 

; RESET TXTPTR 

9048 

A0 

00 


69 



LDY 

#0 

; MOVE TXTPTR TO EOL 

904A 

B1 

B8 


70 

S3 

LDA 

(TP ) , Y 


904C 

C9 

00 


71 



CMP 

#0 

; CHK FOR ZERO 

904E 

F0 

07 


72 



BEQ 

S4 


9050 

C9 

3A 


73 



CMP 

#$3A 

; CHK FOR COLON 

9052 

F0 

03 


74 



BEQ 

S4 


9054 

C8 



75 



INY 



9055 

DO 

F3 


76 



BNE 

S3 

; ALWAYS BRANCH 

9057 

18 



77 

S4 

CLC 



9058 

98 



78 



TYA 



9059 

65 

B8 


79 



ADC 

TP 

; ADD Y REG TO TP 

905B 

85 

B8 


80 



STA 

TP 


905D 

90 

02 


81 



BCC 

S5 


905F 

E6 

B9 


82 



INC 

TP+1 


9061 

60 



83 

S5 

RTS 


/RETURN TO BASIC 

9062 




84 

; 





9062 

A5 

B8 


85 

TPSAV 

LDA 

TXTPTR 

; SAVE TP 

9064 

8D 

53 

95 

86 



STA 

TPTEMP 


9067 

A5 

B9 


87 



LDA 

TXTPTR+1 



DOS 3.3 
ProDOS 

Apple Ile 
Apple Ile 
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LISTATI PER APPLE II 

fi 

9069:8D 

54 

95 

88 

89 

90 


STA 

RTS 

LDA 

TPTEMP+1 



o 

906C: 60 
906D:AD 

53 

95 

TPRES 

TPTEMP 

; RESTORE TP 

p 

9070:85 
9072 :AD 

B8 

54 

95 

91 

92 


STA 

LDA 

TXTPTR 

TPTEMP+1 


p) 

9075:85 

9077:60 

9078: 

B9 


93 

94 

95 


STA 

RTS 

TXTPTR+1 


fi 


9078: 



96 

ROUTTNF. TO STORF. VARIARLE NAME FROM PROG 


9078: 



97 

; TP 

POINTS TO VAR ON 

ENTRY AND EXIT 


o 

9078: 



98 

; y 

REG 

CONTAINS NUMBER OF CHARS 

lo 

9078: 



99 

; EOL 

SET 

TO 0 FOR END OF LINE 

9078: 



100 

; FP POINTS 

TO VAR NAME 

IN THIS PGM - E.G. ARI,AR2,FIRST 


9078: 



101 







9078:A0 

00 


102 

STVAR 

LDY 

#0 

; PRESET CNTRS 

fi 

Q 

907A:A9 
907C:8D 

01 

85 

94 

103 

104 


LDA 

STA 

#1 

EOL 

; PRESET EOL TO 1 

907F:B1 

B8 


105 

STV1 

LDA 

(TXTPTR),Y 

;GET FIRST CHAR 


9081 :C9 

00 


106 


CMP 

#0 

;CHK FOR EOL 



9083 :F0 

15 


107 


BEQ 

STV19 

;EOL FOUND 

fi 

:( J 

9085 :C9 

3A 


108 


CMP 

#$3A 

;CHK FOR : (EOL) 


9087 :FO 

11 


109 


BEQ 

STV19 

;EOL FOUND! 


908 9 :C9 

2C 


110 


CMP 

#$2C 

;CHK FOR , (END OF VAR) 


D 

908B:FO 

15 


111 


BEQ 

STV2 

;WHOLE NAME FOUND 

fi 

908D:C9 

CB 


112 


CMP 

# $CB 

;ASOFT / 

908F:FO 

06 


113 


BEQ 

STV17 



9091:91 

FB 


114 


STA 

(FP),Y 

; SAVE CHAR 



9093 :C8 



115 


INY 


;GET NEXT CHAR 


D 

9094:4C 
9097: 

7F 

90 

116 

117 


JMP 

STV1 


b 

9097 :EE 

45 

95 

118 

STV17 

INC 

ADFLG 

DESCEND SORT 


909A:CE 

85 

94 

119 

STV19 

DEC 

EOL 

SET EOL TO 0 


D 

909D:CO 

00 


120 


CPY 

#0 

CHK IF VAR WAS FOUND 

o 

909F:DO 

01 


121 


BNE 

STV2 

VAR FOUND 

90A1: 60 



122 


RTS 


DONE — MAIN EXIT 


90A2 : 



123 

; 





o 

90A2: 88 



124 

STV2 

DEY 


MOVE BACK ONE CHAR 

o 

90A3:B1 

FB 


125 


LDA 

(FP), Y 

AND CHK FOR $ OR % 

90A5:C9 

24 


126 


CMP 

#$24 

STRING VAR? ($) 

90A7: DO 

08 


127 


BNE 

STV3 

NOT A STRING 



90A9:A9 

03 


128 


LDA 

#3 

SET STRING VALUE 


0 

90AB:8D 
90AE:C8 

89 

94 

129 

130 


STA 

INY 

VARTYPE 


P 

90AF:C8 
90B0:60 



131 

132 


INY 


NOTE - Y CONTAINS VAR LEN 


25 


STV3 

RTS 

#$25 


fi 

90B1:C9 


133 

CMP 

;INT VAR? (%) 


90B3: DO 

08 


134 


BNE 

STV4 

;NOT INT 

Q 

90B5:A9 

02 


135 


LDA 

#2 

; SET INT VAL (2 BYTES) 


90B7:8D 

89 

94 

136 


STA 

VARTYPE 




90BA:C8 



137 


INY 




fi 

90BB:C8 
90BC:60 



138 

139 


INY 

RTS 



fi 

90BD:A9 

05 


140 

STV4 

LDA 

#5 

?VARTYPE FOR REAL (5 BYTES) 

! ;; '.'Pi 

90BF:8D 

89 

94 

141 


STA 

VARTYPE 



fi 

90C2:C8 
90C3:C8 
90C4:60 



142 

143 

144 


INY 

INY 

RTS 



D 

\ • 

90C5 : 



145 

/ 





D 

90C5 : 



146 

; THIS 

ROUTINE MOVES TP OVER BY Y REG 

II 

90C5 : 
90C5:18 



147 

148 

TPANDY 

CLC 


; SET UP FOR ADC 


90C6:98 



149 


TYA 




o 

90C7:65 

B8 


150 


ADC 

TXTPTR 

?ADD Y TO TP 


90C9: 85 

B8 


151 


STA 

TXTPTR 

; SAVE IT 

i 

90CB:90 

02 


152 


BCC 

TPA1 


90CD:E6 

B9 


153 


INC 

TXTPTR+1 



90CF:60 



154 

TPA1 

RTS 




fi 

90D0 : 
90D0: 



155 

156 

; ROUTINE 

TO TERMINATE EACH ARRAY NAME 

u 

90D0 : 



157 

; SETS FP 

AND CALLS STVAR 


90D0 : 



158 






:£x$i : :'+ 

90D0:A9 

99 


159 

VARTERM 

LDA 

#>FIRST 

? PRESET TO (FIRST) 

1 

o 

90D2:8D 

34 

91 

160 


STA 

VT7+1 

90D5:A9 

94 


161 


LDA 

#<FIRST 



90D7:8D 

35 

91 

162 


STA 

VT7 + 2 




90DA:AO 

00 


163 


LDY 

#0 



o 

90DC:8C 

86 

94 

164 


STY 

EOAR 

END OF ARRAY FLAG 

DI 

90DF:8C 

46 

95 

165 


STY 

ARCNT 

ARRAY CNTR 

90E2:8C 

87 

94 

166 


STY 

TBLOFF 



90E5:AC 

87 

94 

167 

VTO 

LDY 

TBLOFF 



8 

90E8:B9 

69 

91 

168 


LDA 

TBL, Y 

’GET ARRAY VAR 

o 

90EB:85 
90ED:C8 

FB 


169 

170 


STA 

INY 

FP 

; STA ADDR IN FP 


90EE:B9 

69 

91 

171 


LDA 

TBL, Y 



ò 

90F1:85 

FC 


172 


STA 

FP+1 


fi 

90F3:EE 

87 

94 

173 


INC 

TBLOFF j 

rOFFSET TO TBL 

90F6:EE 

87 

94 

174 


INC 

TBLOFF 


90F9: 20 

1A 

91 

175 


JSR 

VT5 

STORE ( ) 


90FC:AD 

86 

94 

176 


LDA 

EOAR 

CHK FOR LAST ARRAY 


o 

90FF:FO 

06 


177 


BEQ 

VT1 

NOT LAST ARRAY 

o 

9101 :EE 

46 

95 

178 


INC 

ARCNT 


9104:4C 

44 

91 

179 


JMP 

VT10 ; 

? DONE WITH (FIRST) 


9107 : AD 

87 

94 

180 

VT1 

LDA 

TBLOFF j 

rSKIP OVER FIRST AND LAST 


D 
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LISTATI PER APPLE II 

0 

910A:C9 

02 


181 


CMP 

#2 



910C:DO 

05 


182 


BNE 

VT2 


p 

a 

910E:A9 

06 


183 


LDA 

#6 

; OFFSET FOR TBLOFF 

9110:8D 

87 

94 

184 


STA 

TBLOFF 


9113 :C9 

18 


185 

VT2 

CMP 

#24 




9115 : DO 

CE 


186 


BNE 

VTO 

;NOT DONE 


□ 

9117:4C 

44 

91 

187 


JMP 

VT10 

;DONE WITH (FIRST) 

Q 

911A:AO 

00 


188 

VT5 

LDY 

#0 


911C:B1 

FB 


189 

VT55 

LDA 

(FP), Y 

;ARRAY CHAR 


911E:FO 

04 


190 


BEQ 

VT6 

;BRANCH IF DONE 


D 

9120 :C8 
9121:4C 

1C 

91 

191 

192 


INY 

JMP 

VT55 

;MOVE TO END OF ARRAY NAME 

B 

9124 : CO 

00 


193 

VT6 

CPY 

#0 

;IF Y=0, SET EOAR 

912 6 : DO 

04 


194 


BNE 

VT65 

;NOT DONE 



9128 :EE 

86 

94 

195 


INC 

EOAR 

; SET EOAR TO 1 


O 

912B:60 



196 


RTS 


; AND RETURN 

D 

912C:A2 

00 


197 

VT65 

LDX 

#0 


912E:A9 

28 


198 


LDA 

#$28 

;ASOFT ( 


9130:91 

FB 


199 


STA 

(FP) , Y 

;PUT ( AFTER AR NAME 


d 

9132 :C8 
9133:BD 

99 

94 

200 

201 

VT7 

INY 

LDA 

FIRST,X 

;GET FIRST AND STORE 

b 

913 6 :FO 

07 


202 


BEQ 

VT8 

; DONE 


9138:91 

FB 


203 


STA 

(FP),Y 

; SAVE IT 


o 

913A:C8 



204 


INY 



B 

913B-.E8 



205 


INX 


; INC OFFSETS 

913C:4C 

33 

91 

206 


JMP 

VT7 

;REPEAT UNTIL DONE 


913F:A9 

29 


207 

VT8 

LDA 

#$29 

;ASOFT 



9141:91 

FB 


208 


STA 

(FP), Y 



Q 

9143:60 
9144: 



209 

210 


RTS 


;MAIN EXIT 

o ; 

914 4 :A9 

A3 


211 

VT10 

LDA 

#>LAST 

; SAVE LAST 


914 6:8D 

34 

91 

212 


STA 

VT7 + 1 



0 

914 9:A9 

94 


213 


LDA 

#<LAST 

; SET ADDRESS 

b: 

914B:8D 

35 

91 

214 


STA 

VT7 + 2 


914E:A9 

35 


215 


LDA 

#>ARLAST 



9150:85 

FB 


216 


STA 

FP 



q 

9152 :A9 

95 


217 


LDA 

#<ARLAST 


d 

9154:85 

FC 


218 


STA 

FP + 1 

; SET FP TO ARLAST 

9156:20 

1A 

91 

219 


JSR 

VT5 


9159:60 



220 


RTS 


;*** MAIN EXIT - ALL DONE *** 


915A: 



221 

; SET FP TO 

RIGHT TBL 

ADDR 


Q 

915A: 



222 

; X REG PRESET ON ENTRY 

0 

915A:AE 

44 

95 

223 

FPSET 

LDX 

FPOFF 

; PRESET X REG 

915D:BD 

69 

91 

224 


LDA 

TBL, X 



9160:85 

FB 


225 


STA 

FP 

; SET FP TO ARRAY NAME 


q 

9162 :E8 

9163 :BD 

69 

91 

226 

227 


INX 

LDA 

TBL, X 


Q 

9166:85 

FC 


228 


STA 

FP + 1 



9168:60 



229 


RTS 





916 9:8A 

94 


230 

TBL 

DFB 

$8A,$ 94 

; ARRAY ADDRESS TBL 


Q 

916B:99 

94 


231 


DFB 

$99,$94 


3 

916D:A3 

94 


232 


DFB 

$A3,$94 


916F;AD 

94 


233 


DFB 

$AD,$94 



9171 :BC 

94 


234 


DFB 

SBC,$94 



□ 

9173 :CB 

94 


235 


DFB 

$CB,$94 


n 

917 5 : DA 

94 


236 


DFB 

$DA,$94 


9177 :E9 

94 


237 


DFB 

$E9,$94 



9179:F8 

94 


238 


DFB 

$F8,$94 



d 

917B:07 

95 


239 


DFB 

$07,$95 


q 

917D:16 

95 


240 


DFB 

$16,$95 


917F:25 

95 


241 


DFB 

$25,$95 



9181:35 

95 


242 


DFB 

$35,$95 




9183: 



243 

; ZERO 

ARRAY VARIABLES 


8 

9183 :AO 

C9 


244 

ZERO 

LDY 

# $C 9 


0 

9185:A9 

00 


245 


LDA 

#0 


9187:99 

89 

94 

246 

ZI 

STA 

ARO-1,Y 



918A:88 



247 


DEY 




o 

918B:DO 

FA 


248 


BNE 

ZI 


0 

918D:60 
918E : 



249 

250 


RTS 


;EVERYTHING ZEROED OUT 


918E : 



251 

; SORT 

ROUTINE 



q 

918E : 



252 

; • MAIN ENTRY FOR ALL 

SORTS 


918E: 
918E: 20 

CO 

92 

253 

254 

SORT 

JSR 

BEGADR 

; SET UP ADDRS IN ARO-ARLAST 

1 

9191 : AD 

47 

95 

255 


LDA 

VTYPE 

; SET UP VAR TYPE FOR SORT 


9194:8D 

12 

92 

256 


STA 

INCFP1+1 

;CHANGE ADDR 


q 

9197 : AD 

47 

95 

257 


LDA 

VTYPE 

; SET COMPARE JMP ADDR 

|| 

919A:C9 

02 


258 


CMP 

#2 

;INTEGER 

919C:DO 

OD 


259 


BNE 

SORTO 



919E:A9 

Al 


260 


LDA 

#>ICMP 



3 

91A0:8D 

56 

92 

261 


STA 

PA3+1 

;STORE INT ADDR 

D 

91A3:A9 

93 


262 


LDA 

#<ICMP 


91A5:8D 

57 

92 

263 


STA 

PA3+2 



91A8:4C 

C 6 

91 

264 


JMP 

SORTI 




91AB:C9 

03 


265 

SORTO 

CMP 

#3 



Q 

91AD: DO 

OD 


266 


BNE 

SORT05 


b 

91AF:A9 

DO 


267 


LDA 

#>SCMP 

;STORE STRING ADDR 

91B1:8D 

56 

92 

268 


STA 

PA3 + 1 



91B4:A9 

93 


269 


LDA 

#<SCMP 



:Q 

91B6:8D 

57 

92 

270 


STA 

PA3 + 2 


q 

91B9:4C 

C6 

91 

271 


JMP 

SORTI 


91BC:A9 

34 


272 

SORT05 

LDA 

#>RCMP 

;STORE REAL ADDR 


91BE:8D 

56 

92 

273 


STA 

PA3 + 1 



O; 
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(segue: Listato 4. Super Sorter) 


LISTATI PER APPLE II 

a 

91C1:A9 

94 


274 


LDA 

# <RCMP 



91C3:8D 

57 

92 

275 


STA 

PA3 + 2 


p 


91C6:A9 

00 


276 

SORTI 

LDA 

#0 



91C8:8D 

81 

94 

277 


STA 

CELEM 

; SET CURR ELEM TO 0 


91CB:8D 

82 

94 

278 


STA 

CELEM+1 




91CE:8D 

83 

94 

279 


STA 

MAXELEM 

;ALSO SET MAX ELEM 

o 

O 

91D1:8D 

84 

94 

280 


STA 

MAXELEM+1 

; TO 0 

91D4:A9 

8A 


281 


DFB 

$A9,$8A 

; TP POINTS TO ARO 

91D6:85 

B8 


282 


DFB 

$85,$B8 

;FP POINTS TO ARO 


91D8:A9 

94 


283 


DFB 

$A9,$94 



D 

91DA:85 

B9 


284 


DFB 

$85,$B9 


p 

91DC:A9 

8A 


285 


DFB 

$A9,$8A 


91DE:85 

FB 


286 


DFB 

$85,$FB 



91E0:A9 

94 


287 


DFB 

$A9,$94 




91E2: 85 

FC 


288 


DFB 

$85,$FC 


p 

o 

91E4:20 

1C 

92 

289 


JSR 

PASS 

;FIND LARGEST ELEMENT 

91E7: 



290 

; MAXELEM 

POINTS TO 

HI VAL 

91E7: AD 

83 

94 

291 


LDA 

MAXELEM 

;CHK FOR NO SWAP 


91EA:C9 

00 


292 


CMP 

#0 



0 

91EC: DO 

09 


293 


BNE 

SORT2 


0 

91EE: AD 

84 

94 

294 


LDA 

MAXELEM+1 


91F1.-C9 

00 


295 


CMP 

#0 



91F3:D0 

02 


296 


BNE 

S0RT2 



0 

91F5:FO 

03 


297 


BEQ 

SORT3 

;ALWAYS BRANCH 

|j 

91F7:20 

26 

93 

298 

S0RT2 

JSR 

SWAP 

;SWAP VALUES FOR ALL ARRAYS 

91FA:20 

88 

92 

299 

S0RT3 

JSR 

IARR 

;INCREMENT ALL ARRAYS 


91FD: AD 

8A 

94 

300 


LDA 

ARO 

;CHK FOR DONE 



920 0 : CD 

35 

95 

301 


CMP 

ARLAST 



Q 

9203:D0 

CI 


302 


BNE 

SORTI 


o 

9205 :AD 

8B 

94 

303 


LDA 

ARO + 1 


9208 : CD 

36 

95 

304 


CMP 

ARLAST+1 



920B:DO 

B9 


305 


BNE 

SORTI 



0 

920D:60 



306 


RTS 


;MAIN EXIT 

lo 

920E : 



307 

; ROUTINE TO INCREMENT FP BY 2,3 OR 5 

920E:18 



308 

INCFP 

CLC 




920F:A5 

FB 


309 


LDA 

FP 



0 

9211:69 

00 


310 

INCFP1 

ADC 

#0 

; NOTE 0=2,3 OR 5 

p : 

9213:85 

FB 


311 


STA 

FP 


9215:A5 

FC 


312 


LDA 

FP+1 



9217:69 

00 


313 


ADC 

#0 

; INC HI BYTE BY CARRY 



9219:85 

FC 


314 


STA 

FP+1 



Q 

921B:60 
921C: 



315 

316 


RTS 



0 

921C: 



317 

; PASS ROUTINE 



921C : 



318 

; RETS MAX ELEM NO. 

IN MAXELEM 


D| 

921C: 



319 

; 

(MAXELEM = ARRAY 

ELEMENT) 

2 

921C: 

921C: 



320 

321 

; AND VALUE OF THE I 

; IN CMAX 

MAX ELEM 


921C: 



322 

; 






921C:AO 

00 


323 

PASS 

LDY 

#0 

;STORE (TP) IN TP 


a 

921E:B1 

B8 


324 


LDA 

(TP) ,Y 


o 

9220:48 



325 


PHA 


; SAVE ON STACK 

9221 :C8 



326 


INY 




9222 :B1 

B8 


327 


LDA 

(TP),Y 

;GET HI BYTE 


Q 

9224:85 

B9 


328 


STA 

TP+1 

; SAVE HI BYTE 

0 

9226:85 

FC 


329 


STA 

FP+1 


9228:68 

9229:85 

B8 


330 

331 


PLA 

STA 

TP 

;LOW BYTE IN ACC 








D 

922B:85 

FB 


332 


STA 

FP 


II 

922D:AO 

04 


333 


LDY 

#4 


922F:B1 

B8 


334 

PAO 

LDA 

(TP),Y 

;LOAD CMAX 


9231:99 

73 

94 

335 


STA 

CMAX,Y 




9234:88 



336 


DEY 




s 

9235 : CO 

FF 


337 


CPY 

# $FF 

;DONE? 

o 

9237 : DO 

F6 


338 


BNE 

PAO 


9239:20 

OE 

92 

339 


JSR 

INCFP 

;ADD 2, 3 OR 5 TO FP 


923C:AO 

04 


340 

PAI 

LDY 

#4 



o 

923E:B1 

FB 


341 

PA2 

LDA 

(FP),Y 

;LOAD TEST 

o 

9240:99 

9243:88 

7A 

94 

342 

343 


STA 

DEY 

TEST,Y 



9244 : CO 

FF 


344 


CPY 

#$FF 

;DONE? 


D 

924 6 : DO 

F6 


345 


BNE 

PA2 

;NOT DONE 

o 

924 8 :EE 

81 

94 

346 


INC 

CELEM 

;ADD 1 TO CURR ELEM 

924B:AD 

81 

94 

347 


LDA 

CELEM 



924E:C9 

00 


348 


CMP 

#0 




9250 : DO 

03 


349 


BNE 

PA3 



O 

9252 :EE 

82 

94 

350 


INC 

CELEM+1 

; INC HI BYTE 

0| 

9255:20 

00 

00 

351 

PA3 

JSR 

$0000 

;CMP CMAX AND TEST 

9258:90 

19 


352 

PA35 

BCC 

PA5 

;CMAX >= TEST 


925A:AO 

04 


353 


LDY 

#4 



lo 

925C:B9 

7A 

94 

354 

PA4 

LDA 

TEST,Y 

;PUT TEST INTO CMAX 

0 

925F:99 
9262:88 

73 

94 

355 

356 


STA 

DEY 

CMAX,Y 



9263 : CO 

FF 


357 


CPY 

#$FF 




9265:D0 

F5 


358 


BNE 

PA4 


o 

Pii 

9267 :AD 

81 

94 

359 


LDA 

CELEM 

; SET MAXELEM TO CELEM 


926A:8D 

83 

94 

360 


STA 

MAXELEM 



926D:AD 

82 

94 

361 


LDA 

CELEM+1 



9270:8D 

84 

94 

362 


STA 

MAXELEM+1 



Q 

9273:A5 

FB 


363 

PA5 

LDA 

FP 


Q 

9275 : CD 

35 

95 

364 


CMP 

ARLAST 

;CHK FOR DONE W/PASS 

9278:D0 

08 


365 


BNE 

PA6 



927A:A5 

FC 


366 


LDA 

FP + 1 


i 

g 
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LISTATI PER APPLE II 


9 

927C: CD 

36 

95 

367 

CMP 

ARLAST+1 




927F:D0 

01 


368 

BNE 

PA6 



Q: 

p 

9281:60 



369 

RTS 


DONE WITH PASS 


9282:20 

OE 

92 

370 

PA6 JSR 

INCFP 

GO TO NEXT TEST VALUE 


9285:4C 

3C 

92 

371 

JMP 

PAI 

;DO PASS AGAIN 




9288 : 



372 






0 

9288 : 



373 

; IARR ROUTINE 



Q 

9288: 



374 

; INCREMENTS ALL ARRAYS ACCORDING TO 


9288 : 



375 

; THEIR 

TYPE (REAL, 

STR OR INT) 



9288:A9 

00 


376 

IARR LDA 

#0 

ZERO REGISTERS 



o 

928A:AA 
928B:8D 

72 

94 

377 

378 

TAX 

STA 

ICTR 

;ARRAY COUNTER 


pi 

928E:BD 

69 

91 

379 

IARR1 LDA 

TBL, X 

; SET TP TO ARO-ARLAST 



9291:85 

B8 


380 

STA 

TP 





92 93 :E8 



381 

INX 





ó 

92 94 :BD 

69 

91 

382 

LDA 

TBL, X 



E 

9297:85 

B9 


383 

STA 

TP+1 



92 99 :E8 



384 

INX 





929A:AC 

72 

94 

385 

LDY 

ICTR 

,* GET VARIABLE TYPE 



D 

929D:B9 

47 

95 

386 

LDA 

VTYPE,Y 



b 

92A0:FO 

1D 


387 

BEQ 

IARR 5 

;DONE 


92A2:8D 

AB 

92 

388 

STA 

IARR3+1 

; SET ADD AMT 



92A5:AO 

00 


389 

IARR2 LDY 

#0 




o 

92A7:B1 

B8 


390 

LDA 

(TP),Y 



b 

92A9:18 
92AA:69 

00 


391 

392 

CLC 

IARR3 ADC 

#0 

; 0=2, 3 OR 5 


92AC: 91 

B8 


3 93 

STA 

(TP),Y 

;ARO-LST CONTAINS ADDR 




92AE:C8 



394 

INY 





o 

92AF:Bl 

B8 


395 

LDA 

(TP) ,Y 



§ 

92B1:69 

00 


396 

ADC 

#0 

; INC HI BYTE 


92B3:91 

B8 


3 97 

STA 

(TP),Y 




92B5:EE 

72 

94 

398 

INC 

ICTR 

;INCREMENT ARR CNTR 



D 

92B8:AD 

72 

94 

399 

LDA 

ICTR 



9 

92BB:C9 

OC 


400 

CMP 

#12 

;CHK FOR DONE 


92BD:D0 

CF 


401 

BNE 

IARR1 

;NOT DONE 



92BF:60 



402 

IARR5 RTS 


;MAIN EXIT FROM IARR 



Q 

92C0 : 



403 





o 

92C0: 



404 

; BEGADR ROUTINE 



92C0: 



405 

; STORES ADDRESSES OF 

ARO-ARLAST 


92C0 : 



406 

; IN ARO- 

ARLAST 




92C0 : 



407 

r 





0 

92C0:A2 

00 


408 

BEGADR LDX 

#0 



b 

92C2:8E 

6F 

94 

409 

STX 

BOFF 

;TABLE OFFSET 


92C5:AE 

6F 

94 

410 

BAD RI LDX 

BOFF 




92C8:BD 

69 

91 

411 

LDA 

TBL, X 

; SET UP TP 



D 

92CB: 85 

B8 


412 

STA 

TP 



b 

92CD:8D 
92D0:E8 

70 

94 

413 

414 

STA 

INX 

BTTP 




92D1:BD 

69 

91 

415 

LDA 

TBL, X 





92D4:85 

B9 


416 

STA 

TP + 1 




o 

92D6:8D 

71 

94 

417 

STA 

BTTP+1 



o 

92D9:AO 

00 


418 

LDY 

#0 

;CHK FOR DONE 


92DB:B1 

B8 


419 

LDA 

(TP) , Y 




92DD:D0 

02 


420 

BNE 

BADR3 

;NOT DONE 



p 

92DF:FO 

30 


421 

BEQ 

BADR5;DONE 



b 

92E1:20 

E3 

DF 

422 

BADR3 JSR 

PTRGET 

;FIND VAR ROUTINE 


92E4:48 



423 

PHA 


; SAVE LO BYTE ON STACK 



92E5: 98 



424 

TYA 





1 

92E6:4 8 



425 

PHA 


,-SAVE HI BYTE ON STACK 


O; 

92E7:AD 

70 

94 

426 

LDA 

BTTP 

,’MOVE TEXT POINTER BACK 


92EA:85 

B8 


427 

STA 

TP 




92EC:AD 

71 

94 

428 

LDA 

BTTP+1 





92EF: 85 

B9 


429 

STA 

TP + 1 




p 

92F1:A0 
92F3: 68 

01 


430 

431 

LDY 

PLA 

#1 

; RETURN HI BYTE TO ACC 


o. 

92F4:91 

B8 


432 

STA 

(TP) , Y I 

NOW RESET TP 



92F6:68 



433 

PLA 





p 

92F7:88 



434 

DEY 


? OFFSET 


0 

92F8:91 

B8 


435 

STA 

(TP) , Y ; 

; SAVE LOW BYTE 


92FA:AD 

6F 

94 

436 

LDA 

BOFF j 

rSKIP PAST FIRST AND LAST 



92FD:D0 

05 


437 

BNE 

BADR4 




b 

92FF:A9 

04 


438 

LDA 

#4 j 

rSKIP FIRST AND LAST 


o| 

9301:8D 

6F 

94 

439 

STA 

BOFF 



9304 :EE 

6F 

94 

440 

BADR4 INC 

BOFF 



9307 :EE 

6F 

94 

441 

INC 

BOFF ; 

r ADD 2 TO BOFF 



930A:AD 

6F 

94 

442 

LDA 

BOFF ; 

rNOW CHK FOR DONE 



b 

930D.-C9 

1A 


443 

CMP 

#26 



O 

930F:D0 

B4 


444 

BNE 

BADRI ; 

rNOT DONE 


9311 : A9 

35 


445 

BADR5 LDA 

#>ARLAST ; 

rNOW SET UP ARLAST 



9313:85 

B8 


446 

STA 

TP 




8 

9315:A9 

95 


447 

LDA 

#<ARLAST 



o: 

9317:85 

B9 


448 

STA 

TP + 1 



9319:20 

E3 

DF 

449 

JSR 

PTRGET j 

: FIND ADDRESS 



931C.-8D 

35 

95 

450 

STA 

ARLAST 





931F:8C 

36 

95 

451 

STY 

ARLAST+1 




0 

9322:20 

4F 

94 

452 

JSR 

RNGCHK ; 

: CHECK FOR AR0>ARLAST 


3 

9325:60 

9326: 



453 

454 

RTS 


rMAIN EXIT 



9326: 



455 

;SWAP ROUTINE 




B 

9326: 



456 

; MAXELEM CONTAINS NO. OF MAX ELEMENT 


b 

9326: 

9326: 



457 

458 

; TP POINTS 

TO FIRST ELEM ON PASS 



9326:A9 

00 


459 

SWAP LDA 

#0 




n 
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9328 

8D 

68 

94 

460 


STA 

SWCTR 

;PRESET SW ARRAY CNTR 

932B 

AE 

68 

94 

461 

SWAP1 

LDX 

SWCTR 


932E 

BD 

47 

95 

462 


LDA 

VTYPE,X 

; 2/ 3 OR 5 

9331 

8D 

69 

94 

463 


STA 

SWMULT 

;STORE IN MULTIPLIER 

9334 

AD 

68 

94 

464 


LDA 

SWCTR 


9337 

0A 



465 


ASL 

A 

/•MULTIPLY BY TWO 

9338 

A8 



466 


TAY 



9339 

B9 

69 

91 

467 


LDA 

TBL, Y 

;SET UP TP 

933C 

85 

B8 


468 


STA 

TP 


933E 

C8 



469 


INY 



933F 

B9 

69 

91 

470 


LDA 

TBL, Y 


9342 

85 

B9 


471 


STA 

TP+1 


9344 

A0 

00 


472 


LDY 

#0 

;RESET Y TO ZERO 

9346 

B1 

B8 


473 


LDA 

(TP),Y 

;CHK IF AR()=0 

9348 

DO 

06 


474 


BNE 

SWAP15 


934A 

C8 



475 


INY 



934B 

B1 

B8 


476 


LDA 

(TP)/Y 


934D 

DO 

01 


477 


BNE 

SWAP15 


934F 

60 



478 


RTS 


; DONE 

9350 

AO 

00 


479 

SWAP15 

LDY 

#0 


9352 

B1 

B8 


480 


LDA 

(TP)/Y 

;PUT (TP) IN TP & FP 

9354 

48 



481 


PHA 


; SAVE ON STACK 

9355 

C8 



482 


INY 



9356 

B1 

B8 


483 


LDA 

(TP),Y 

;HI BYTE 

9358 

85 

B9 


484 


STA 

TP+1 


935A 

85 

FC 


485 


STA 

FP + 1 


935C 

68 



486 


PLA 


;GET LO BYTE 

935D 

85 

B8 


487 


STA 

TP 


935F 

85 

FB 


488 


STA 

FP 


9361 

AC 

69 

94 

489 


LDY 

SWMULT 

; 2/3 OR 5 

9364 

18 



490 

SWAP2 

CLC 



9365 

A5 

FB 


491 


LDA 

FP 

;ADD MAXELEM TO FP 

9367 

6D 

83 

94 

492 


ADC 

MAXELEM 


936A 

85 

FB 


493 


STA 

FP 


936C 

A5 

FC 


494 


LDA 

FP + 1 


936E 

6D 

84 

94 

495 


ADC 

MAXELEM+1 ; HI BYTE 

9371 

85 

FC 


496 


STA 

FP + 1 


9373 

88 



497 


DEY 


/■MULTIPLIER CNTR 

9374 

CO 

00 


498 


CPY 

#0 

;CHK IF DONE 

9376 

DO 

EC 


499 


BNE 

SWAP2 

;NOT DONE 

9378 

AC 

69 

94 

500 


LDY 

SWMULT 


937B 

88 



501 


DEY 



937C 

B1 

FB 


502 

SWAP3 

LDA 

(FP)/Y 

;NOW SWAP 

937E 

99 

6A 

94 

503 


STA 

SWTMP/Y 


9381 

B1 

B8 


504 


LDA 

(TP),Y 

;SET TP VAL TO FP 

9383 

91 

FB 


505 


STA 

(FP) /Y 


9385 

B9 

6A 

94 

506 


LDA 

SWTMP,Y 


9388 

91 

B8 


507 


STA 

(TP),Y 

;SET TEMP TO TP 

938A 

88 



508 


DEY 



938B 

CO 

FF 


509 


CPY 

# $FF 

;DONE? 

938D 

DO 

ED 


510 


BNE 

SWAP3 

;NOT DONE 

938F 

EE 

68 

94 

511 


INC 

SWCTR 

;INC ARRAY CNTR 

9392 

AD 

68 

94 

512 


LDA 

SWCTR 


9395 

C9 

01 


513 


CMP 

#1 

;CHK FOR ARO 

9397 

FO 

05 


514 


BEQ 

SWAP4 

;AR0 (FIRST PASS) 

9399 

C9 

OB 


515 


CMP 

#11 

;CHK IF DONE 

939B 

DO 

07 


516 


BNE 

SWAP5 

;NOT DONE 

939D 

60 



517 


RTS 


;EXIT 

939E 

EE 

68 

94 

518 

SWAP4 

INC 

SWCTR 

/■BYPASS FIRST AND LAST 

93A1 

EE 

68 

94 

519 


INC 

SWCTR 


93A4 

4C 

2B 

93 

520 

SWAP5 

JMP 

SWAP1 

;SWAP NEXT ARRAY 

93A7 




521 

; 




93A7 




522 

; INTEGER 

COMPARE ROUTINE 

93A7 




523 

; ASSUMES 

CURRENT 

MAX VALUE IS 

93A7 




524 

; 

IN CMAX AND 


93A7 




525 

; 

TEST VALUE IN TEST 

93A7 




526 

; 




93A7 




527 

; RETS CARRY CLR IF 

CMAX >= TEST 

93A7 




528 

; AND CARRY SET IF 

TEST > CMAX 

93A7 




529 

; 




93A7 

AD 

73 

94 

530 

ICMP 

LDA 

CMAX 

;SEE IF CMAX IS NEG 

93AA 

29 

80 


531 


AND 

#$80 


93AC 

FO 

09 


532 


BEQ 

ICMP 5 

/•CMAX IS POS 

93AE 

AD 

7A 

94 

533 


LDA 

TEST 


93B1 

29 

80 


534 


AND 

#$80 

;SEE IF TEST IS NEG 

93B3 

DO 

OB 


535 


BNE 

ICMP 6 

/TEST & CMAX NEG 

93B5 

18 



536 


CLC 



93B6 

60 



537 


RTS 


; EXIT 

93B7 

AD 

7A 

94 

538 

ICMP5 

LDA 

TEST 

;CMAX + CHK TEST 

93BA 

29 

80 


539 


AND 

#$80 


93BC 

FO 

02 


540 


BEQ 

ICMP 6 

;TEST POS 

93BE 

38 



541 


SEC 



93BF 

60 



542 


RTS 



93C0 

AD 

73 

94 

543 

ICMP 6 

LDA 

CMAX 

;GET HIGH BYTE 

93C3 

CD 

7A 

94 

544 


CMP 

TEST 

t 

93C6 

FO 

01 


545 


BEQ 

ICMP 7 

;HIGH BYTES EQUAL 

93C8 

60 



546 


RTS 


,-CARRY SET OR CLR 

93C9 

AD 

74 

94 

547 

ICMP 7 

LDA 

CMAX+1 

;CHK LOW BYTE 

93CC 

CD 

7B 

94 

548 


CMP 

TEST+1 


93CF 

60 



549 


RTS 


,-CARRY SET OR CLR 

93D0 




550 

; 




93D0 




551 

; STRING COMPARE ROUTINE 

93D0 




552 

; 





D 

| 

o 

b 

p 

b 

p 

b 

b 

2 

8 

§ 

b 

jq 

b 

b 

■ D 

p 

b 
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o 

: (segue: Listato 4. Super Sorter) 


Libi All rth APrLt II 

o 

93D0:AE 

7A 94 

553 SCMP 

LDX 

TEST 

; FIRST CHK FOR NUL STR 


:q 

93D3:EO 

00 

554 

CPX 

#0 


Q 

93D5:D0 
93D7:38 

02 

555 

556 

BNE 

SEC 

SCMP05 

;NOT A NUL 

93D8: 60 


557 

RTS 





93D9:AE 

73 94 

558 SCMP05 

LDX 

CMAX 



p 

93DC:EO 

00 

559 

CPX 

#0 

;CHK FOR NUL 

pi 

93DE:D0 
93E0:18 

02 

560 

561 

BNE 

CLC 

SCMPO 



93E1:60 


562 

RTS 




a 

93E2:AD 

7A 94 

563 SCMPO 

LDA 

TEST 

;STORE TEST LEN 

O 

93E5:8D 

67 94 

564 

STA 

STEST 


93E8:A5 

B8 

565 

LDA 

TP 

; SAVE TP AND FP 


93EA:48 


566 

PHA 


; ON STACK 



93EB:A5 

B9 

5 67 

LDA 

TP+1 



Q 

93ED: 48 
93EE:A5 

FB 

568 

569 

PHA 

LDA 

FP 


P 

93F0:48 


570 

PHA 




93F1:A5 

FC ■ 

571 

LDA 

FP+1 



D 

93F3:4 8 
93F4:AD 
93F7:8 5 

74 94 
B8 

572 

573 

574 

PHA 

LDA 

STA 

CMAX+1 

TP 

; SET TP TO CMAX 

3 


93F9:AD 

75 94 

575 

LDA 

CMAX+2 



o. 

93FC: 8 5 

B9 

576 

STA 

TP+1 


B 

93FE:AD 
9401:85 

7B 94 
FB 

577 

578 

LDA 

STA 

TEST+1 

FP 

; SET FP TO TEST 


9403:AD 

7C 94 

579 

LDA 

TEST+2 




9406:85 

FC 

580 

STA 

FP+1 



0 

9408 :AO 

00 

581 

LDY 

#0 

; PRESET Y REG 

0: 

94 OA:B1 

B8 

582 SCMP1 

LDA 

(TP) , Y 

;GET CMAX CHAR 

94 OC:D1 

FB 

583 

CMP 

(FP) , Y 

; COMPARE TO TEST 


94 OE:FO 

04 

584 

BEQ 

SCMP 2 

; TEST = CMAX CHAR 


D 

9410:90 

10 

585 

BCC 

SCMP 3 

;FP CHAR < CMAX 

g 

9412:B0 

12 

586 

BCS 

SCMP 6 

;FP CHAR > CMAX 

9414:CE 

67 94 

587 SCMP2 

DEC 

STEST 

; CHECK IF TEST IS DONE 


9417 :AD 

67 94 

588 

LDA 

STEST 



D 

941A:FO 

OA 

589 

BEQ 

SCMP 6 


g 

941C:C8 


590 

INY 


; TEST CHAR =CMAX CHAR 

941D:CA 


591 

DEX 


;CNTR FOR CMAX CHARS 

941E:E0 

00 

592 

CPX 

#0 



94 20:D0 

E8 

593 

BNE 

SCMP 1 



p 

9422:18 


594 SCMP3 

CLC 


;CARRY CLR FOR RETURN 

B 

9423:4C 

27 94 

595 

JMP 

SCMP 7 

; RESET TP AND FP 

9426:38 


596 SCMP6 

SEC 


; SET CARRY FOR RET 


9427:68 


597 SCMP7 

PLA 


; RESET TP AND FP 


o 

9428:85 

FC 

598 

STA 

FP+1 


□ 

942A:68 
942B:85 

FB 

599 

600 

PLA 

STA 

FP 



942D: 68 


601 

PLA 





942E: 85 

B9 

602 

STA 

TP + 1 



fi! 

9430:68 

9431:85 

B8 

603 

604 

PLA 

STA 

TP 


H 

9433:60 


605 

RTS 


; EXIT 


9434: 


606 ; 





b 

9434: 


607 ; FLOATING 

POINT CMP 

ROUTINE 

§ 

9434: 


608 ; 




9434 :AO 

94 

609 RCMP 

LDY 

#<CMAX 

; POINT Y,A TO CMAX 


9436 :A9 

73 

610 

LDA 

# > CMAX 



d 

9438:20 

F9 EA 

611 

JSR 

MOVFM 

;PUT CMAX IN FAC 

5; 

943B:A2 

A5 

612 

LDX 

#ARG 

; SET UP FOR MOVML 

943D: 20 

23 EB 

613 

JSR 

MOVML 

; PACK FAC IN ARG 


9440:A0 

94 

614 

LDY 

#<TEST 

;POINT Y,A TO TEST 


9442:A9 

7A 

615 

LDA 

#>TEST 



Q 

9444:20 

F9 EA 

616 

JSR 

MOVFM 

;PUT TEST IN FAC 

D! 

9447 :AO 

00 

617 

LDY 

#0 

;POINT Y,A TO ARG 

9449:A9 

A5 

618 

LDA 

#ARG 



944B: 20 

B2 EB 

619 

JSR 

FCOMP 

; COMPARE 


o 

944E: 60 


620 

RTS 


;DONE - CARRY SET BY FCOMP 

0 

944F: 

94 4F : 


621 ; CHECK 

622 ; 

FOR 

ARO > ARLAST 


. 94 4F:AD 

36 95 

623 RNGCHK 

LDA 

ARLAST+1 


|Q| 

9452:CD 

8B 94 

624 

CMP 

ARO+1 



9455:90 

OA 

625 

BCC 

ERROUT 


3 

9457:D0 

OD 

626 

BNE 

DONE 


9459:AD 

35 95 

627 

LDA 

ARLAST 



94 5C: CD 

8A 94 

628 

CMP 

ARO 




945F:B0 
94 61: 

05 

629 

630 ; 

BCS 

DONE 


D 

94 61 :A2 

35 

631 ERROUT 

LDX 

#53 

;ILLEGAL QUANTITY 


94 63: 4C 

12 D4 

632 

JMP 

ERROR 



2 

9466: 
9466:60 
94 67: 


633 ; 

634 DONE 

635 STEST 

RTS 

DS 

$1 

; TEST CHAR CNTR 

B 


9468: 


636 SWCTR 

DS 

1 

;ARRAY CNTR 

H 

9469: 


637 SWMULT 

DS 

1 

;MULT VALUE - 2,3 OR 5 


94 6A: 

94 6F : 


638 SWTMP 

639 BOFF 

DS 

DS 

5 

1 

;TEMP STORAGE 

ci 

9470: 


640 BTTP 

DS 

2 

;TEMP TP STORAGE 


9472: 


641 ICTR 

DS 

1 

;ARRAY COUNTER 



9473: 

9473: 

9473: 


642 ; 

643 ; VARIABLES 

644 ; 



3 


9473: 


645 CMAX 

DS 

$7 

;VAL OF MAX DURING SORT 


g 
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o 

o 

o 

o 

o 

p 

o 

B 

s 

o 

5 

o 

B 

S 

o 

o 

o 

0 

Q 

5 

8 

o 

d 


(segue: Listato 4. Super Sorter) 


LISTATI PER APPLE II 


947A 

646 

TEST 

DS 

$7 

;CURRENT TEST VALUE 

9481 

647 

CELEM 

DS 

$2 

;CURRENT ELEMENT (INTEGER) 

9483 

648 

MAXELEM 

DS 

$2 

/■MAXIMUM ELEMENT NO. 

9485 

649 

EOL 

DS 

$1 

;END .OF LINE FLAG 

9486 

650 

EOAR 

DS 

$1 

; END OF ARRAY FLAG 

9487 

651 

TBLOFF 

DS 

$2 

/•OFFSET 

9489 

652 

VARTYPE 

DS 

$1 

; 2=REAL, 1=STR, 0=INT 

948A 

653 

ARO 

DS 

15 

;SORT ARRAY NAME (ASOFT) 

9499 

654 

FIRST 

DS 

10 

;ASOFT NAME OF LO LMT 

94A3 

655 

LAST 

DS 

10 

;ASOFT NAME OF HI LMT 

9 4 AD 

656 

ARI 

DS 

15 

;1ST TRAILER 

94BC 

657 

AR2 

DS 

15 

;2ND TRAILER, ETC. 

94CB 

658 

AR3 

DS 

15 


94DA 

659 

AR4 

DS 

15 


94E9 

660 

AR5 

DS 

15 


94F8 

661 

AR6 

DS 

15 


9507 

662 

AR7 

DS 

15 


9516 

663 

AR8 

DS 

15 


9525 

664 

AR9 

DS 

15 


9534 

665 


DS 

$1 

; END OF TABLE 

9535 

666 

ARLAST 

DS 

15 

;NAME OF SORT END 

9544 

667 

FPOFF 

DS 

$1 


9545 

668 

ADFLG 

DS 

$1 

;ASC/DESC FLG 

9546 

669 

ARCNT 

DS 

$1 

;CONTAINS NUMBER OF TRAILER 

9547 

670 

VTYPE 

DS 

12 

;VAR TYPE (1 BYTE EACH) 

9553 

671 

TPTEMP 

DS 

$2 

;TEMP TP STORAGE 

*** SUCCESSFUL ASSEMBLY: NO ERRORS 



(Fine) 


Checksum del listato 1 

APPLE CHEGKER 3.0 
NOME FILE: SUPER.SORT 
TIPO: B 

LUNGHEZZA: 0484 
CHECKSUM : D6 


o 

o 

o 

o 

Q 

o 


Listato 2. Bridge 


10 

20 

30 

40 

50 

60 

70 

80 

90 

100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 


320 


BRIDGE 

DI LOREN WRIGHT 
COPYRIGHT (C) 1987 
BY APPLICANDO & 
MICROSPARC, INC 


REM 
REM 
REM 
REM 
REM 
REM 
REM 

PRINT CHR$ (4)"BRUN SUPER.SORT" 

C$ = "AKQJT98765432":S$ = "SHDC" 

DIM DL(52) ,D%(52),VP(3),HP(3) 

FOR I = 0 TO 3: READ VP(I) / HP(I>: NEXT 
REM CREA MAZZO CASUALE 

FOR I = 1 TO 52 :DL (I) = RND (1):D%(I) = I: 
NEXT 

REM ORDINA MATRICE 
& DL,1,52,D% 

REM ORDINA CIASCUNA MANO 

FOR H = 0 TO 3 :F = 13 * H + 1:L = F + 12: & 
D%,F,L: NEXT 

REM VISUALIZZA LE QUATTRO MANI 
GOSUB 310 
FOR H = 0 TO 3 
SL = 0 

VTAB VP(H): HTAB HP(H) 

FOR C = 1 TO 13 
X = D% (13 * H + C) 

S = INT ((X - 1) / 13): IF S 
VTAB VP (H) + S: HTAB HP(H):SL = S 
PRINT MID$ (C$,X - 13 * S,l); 

NEXT C: PRINT : NEXT H 
INPUT "ANCORA? ";YN$: IF YN$ 

END 

REM STAMPA LE LETTERE DEI SEMI 
HOME : FOR H = 0 TO 3: VTAB VP(H): 


DOS 3.3 


ProDOS 


Apple Ile 


Apple Ile 


SL THEN 


"S" THEN 130 


FOR S = 


1 TO 4: HTAB HP(H) ■ 

): NEXT S,H: RETURN 
DATA 1,15,9,3,9,28,18,15 


2: PRINT MID$ (S$,S,1 


(Fine) 


□ 


Q 

O 

g 

o 

o 

Q 

D 

o 

6 
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LISTATI PER APPLE II 


Listato 1. Cross Reference 


63956 HOME : PRINT "APPLE CROSS REFERENCE DI CE 

CIL FRETWELL": PRINT : PRINT "*(C) 1987 B 

Y APPLICANDO & MICROSPARC*": VTAB 21: HTA 
B 1: PRINT "PREMI <RETURN> QUANDO SEI PRO 
NTO"; : GET Z$: PRINT : VTAB 21: HTAB 1: C 
ALL - 958: ONERR GOTO 63999 

63957 DEF FN XX (I) = 256 * PEEK (I + 1) + PE 

EK (I) : 1$ = " ":P = FN XX(107) - 12:J$ = 

" ":S = FN XX(107) - 12: HOME : VTAB 12 

: HTAB 12: PRINT "FASE 1";: DIM X$ (1000) : 
DIM Y% (1,400/3) : DIM X% (1,2000) 

63958 I = FN XX(103):J = FN XX(I + 2):K = FN 

XX(I) :L$ (0) = "NUMERI D'ISTRUZIONE":L$(1 
) = "NOMI DI VARIABILE":L$(2) = "VALORI L 
ITERAL": L$(3) = "VALORI COSTANTI": FOR L 
= 1 TO 0 STEP - 1:NS = NS + 1:Y%(0,NS,0) 
= NS 

63959 X$ (NS) = RIGHT$ (" " + STR$ (J),5):I 

= K:J = FN XX(I + 2):K = FN XX(I):L « 

K > 0 AND I < 32767 AND J < 63956: NEXT : 
IX (0) = NS:NL = NS: HTAB 18: PRINT "2": H 
TAB 4: PRINT "STO ANALIZZANDO ";:I = FN 
XX (103) 

63960 FOR SN = 1 TO NS:K = FN XX (I) :J = FN XX 

(I + 2) :N = 4:L = K - I - 1 : POKE S,L: PO 

KE S + 1,1 - 256 * INT (I / 256): POKE S 

+ 2, INT (I / 256):GT = 0:X = PEEK (I + 
N): HTAB 20: PRINT J;: FOR LL = 1 TO 0 S 
TEP - 1 :Y = (X < > 178) 

63961 IF X = 34 THEN MX = 2:Z = N + 1: FOR M = 

1 TO 0 STEP -1:Z=Z+1:M= MID$ (J$, 

Z,l) < > CHR$ (34) AND Z < > L: NEXT : 

Y = Z - N: POKE P,Y: POKE P+l,I+N-2 
56 * INT ((I + N) / 256): POKE P + 2, IN 
T ((I + N) / 256): GOTO 63979 

63962 IF X = 194 THEN Z = N:MX « 1: FOR M = 1 T 

O 0 STEP - 1:Z = Z + 1:M = MID$ (J$,Z,1 

) < > "(" AND Z < > L: NEXT :Y = Z - N: 

1$ = "FN " + MID$ (J$,N + 2,Y - 2): GOTO 

63979 

63963 IF NOT (X > 64 AND X < 91) THEN 63966 

63964 Z = N - 1 :MX = 1: FOR M = 1 TO 0 STEP - 

1 :Z = Z + 1:X = PEEK (I + Z):M = X > 47 

AND X < 58 OR X > 64 AND X < 91 OR X = 36 

OR X = 37: NEXT 

63965 Z = Z + (X = 40):Y = Z - N: POKE P,Y: POK 

E P + 1,1 + N - 256 * INT ((I + N) / 256 
): POKE P + 2, INT ((I + N) / 256): GOTO 
63979 

63966 Z = N:T = I + N + 1: IF X = 171 OR X = 17 

6 OR GT = 1 THEN 63970 

63967 IF X < > 196 THEN 63971 

63968 Z = Z + 1 : X = PEEK (I + Z) : IF X = 171 O 
R X = 176 THEN T = T + 1: GOTO 63970 

63969 IF NOT (X > 47 AND X < 58) THEN 63971 

63970 MX = 0: FOR M = 1 TO 0 STEP - 1:Z = Z + 

1:X = PEEK (I + Z):M = X > 47 AND X < 58 
: NEXT :Y = Z - N:GT = (X = 44): POKE P,Z 
- T + I: POKE P + 1,T - 256 * INT (T / 
256): POKE P + 2, INT (T / 256) :I$ RIG 
HT$ (" " + 1$,5): GOTO 63979 

63971 IF NOT (X > 47 AND X < 58 OR X = 46) THE 
N 63989 

63972 Z = N - 1:MX = 3: FOR M = 1 TO 0 STEP - 

1 : Z = Z + 1:X = PEEK (I + Z):M = X > 47 

AND X < 58 OR X = 46: NEXT : IF X < >69 

THEN 63977 

63973 Z = Z + 1:X = PEEK (I + Z): IF NOT (X = 

* 200 OR X = 201) THEN 63976 

63974 POKE P,Z - N: POKE P + 1,I + N - 256 * I 

NT ( (I + N) / 256): POKE P + 2, INT ((I + 

N) / 256):X = (X = 200) * 43 + (X = 201) 

* 45 

63975 FOR M = 1 TO 0 STEP - 1:1$ = 1$ + CHR$ 

(X):Z = Z + 1 : X = PEEK (I + Z) :M = X > 4 

7 AND X < 58: NEXT :Y = Z - N: GOTO 63978 

63976 Z = Z - 1: FOR M = 1 TO 0 STEP - 1:Z = Z 

+ 1:X = PEEK (I + Z):M = X > 47 AND X < 
58: NEXT 

63977 Y = Z - N: POKE P,Y: POKE P+l,I+N-2 
56 * INT ((I + N) / 256): POKE P + 2, IN 
T ((I + N) / 256) 

63978 IF LEN (1$) < 13 THEN 1$ = RIGHT$ (" 

" + 1$,13): REM 12 SPAZI 

63979 LX = 0 :JX = IX(MX):KX - JX: IF NOT ((1$ 

< > X$(Y%(0,JX,MX))) AND (JX > LX)) THEN 

63983 

63980 IF (1$ < X$(Y%(0,JX,MX))) AND (JX > LX) T 
HEN FOR M = 1 TO 0 STEP - 1:KX = JX:JX 
= JX - INT ( (KX - LX) / 2 + .5):M = (1$ 


< X$(Y%(0,JX,MX))) AND (JX > LX): NEXT 

63981 IF (1$ > X$(Y%(0,JX,MX))) AND (JX > LX) T 
HEN FOR M = 1 TO 0 STEP - 1 :LX = JX:JX 
= JX + INT ((KX - LX) / 2):M = (1$ > X$( 
Y%(0,JX,MX))) AND (JX > LX): NEXT 

63982 KX = JX: IF (1$ < > X$(Y%(0,JX,MX))) AND 

(JX > LX) THEN 63980 

63983 JX = JX * ((1$ = X$(Y%(0,JX,MX))) OR (MX 

>0)): IF MX = 0 OR 1$ = X$(Y%(0,JX,MX)) 
THEN 63987 

63984 JX = JX + 1: IF (IX(MX) + (IX(MX) = 0)) < 

JX THEN 63986 

63985 FOR LX = IX(MX) + (IX(MX) = 0) TO JX STEP 

- 1:T% = Y% (0,LX,MX) :Y%(0,LX,MX) = Y%(0 
,LX + 1,MX):Y%(0,LX + 1,MX) = T%:T% = Y%( 
1,LX,MX):Y%(1,LX,MX) = Y%(1,LX + 1,MX):Y% 
(1,LX + 1,MX) = T%: NEXT 

63986 IX(MX) « IX (MX) + 1:NL = NL + 1:Y%(0,JX,M 
X) = NL:X$(NL) = 1$ 

63987 IF NOT (Y%(1,JX,MX) = 0 OR X% ( 1, Y% (1, JX, 
MX)) < > (J - 65536 * (J > 32767))) THEN 

63989 

63988 NA = NA + 1:X%(1,NA) = J - 65536 * (J > 3 
2767):X%(0,NA) = Y%(1,JX,MX):Y%(1,JX,MX) 

= NA 

63989 N = N + Y:X = PEEK (I + N):LL = N < L AN 
D X < >178: NEXT : I = K: NEXT : VTAB 12 
: HTAB 18: PRINT "3": PRINT SPC( 34): PR 
INT : PRINT CHR$ (4);"PR#1": FOR MX = 0 
TO 3: PRINT SPC( 20);L$(MX): PRINT :L = 

0 

63990 IF Y% (1,0,MX) > 0 THEN PRINT SPC( 10);" 

NON DEFINITO <:";: GOSUB 63995 

63991 IF L > = IX(MX) THEN PRINT CHR$ (12);: 

NEXT : PRINT : PRINT CHR$ (4);"PR#0": E 
ND 

63992 L = L + 1:KX - Y%(0,L,MX):X = LEN (X$(KX 

)): IF Y% (1,L,MX) < = 0 THEN 63991 

63993 PRINT SPC( 10);X$(KX);: IF X < 13 THEN 
PRINT SPC( 13 - X); 

63994 PRINT " <:"; : GOSUB 63995: GOTO 63991 

63995 J = Y%(1,L,MX): I = 0:T = 0: IF J < = 0 T 

HEN 63997 

63996 FOR M = 1 TO 0 STEP - 1:1 = I + 1:X%(1,N 
A + I) = x% (1, J) : J = X% (0 , J) :M = (J > 0): 

NEXT 

63997 FOR M = I TO 1 STEP - 1: PRINT LEFT$ ( 

STR$ (X%(1,NA + M) + 65536 * (X%(1,NA + M 
) < 0)) + " ", 6) ; :T = T + 1 : IF T = 8 

AND M < >1 THEN T = 0: PRINT : PRINT 

SPC( 26) 

63998 NEXT : PRINT : RETURN 

63999 HOME : VTAB 10: PRINT "ERRORE N." PEEK (2 
22)" A LINEA " PEEK (218) + 256 * PEEK ( 
219): PRINT : PRINT "REGISTRA QUESTI VALO 
RI:": PRINT : PRINT "JX="JX" LX="LX" MX=" 
MX: PRINT "NA="NA" NL="NL" NS="NS: POKE 2 
16,0: END 


DOS 3.3 
ProDOS 

Apple Ile 
Apple Ile 


Checksum del listato 1 

APPLE CHECKER 3.0 

NOME FILE: 

XREF 

TIPO: A 


LUNGHEZZA: 

0BF1 

CHECKSUM : 

] 

74 


Listato 2. Cross Reference 


10 

20 

30 

40 

50 

60 

70 

80 

90 

100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 


REM 
REM 
REM 
REM 
REM 
REM 
REM 
PRINT 
PRINT 
PRINT 


MAKE.DO.XREF 
DI CECIL FRETWELL 
COPYRIGHT (C) 1987 
BY APPLICANDO & 
MICROSPARC, INC 


CHR$ (4);"OPEN DO.XREF" 

CHR$ (4);"WRITE DO.XREF" 

"CLEAR" 

PRINT "L = 25 6*PEEK(106) + PEEK(105) - 4" 
PRINT "IF PEEK(L) <> 0 THEN L = L + 1" 
PRINT "IF PEEK(L) = 0 THEN L = L + 1" 
PRINT "POKE 104,INT(L/256)" 

PRINT "POKE 103,L - 256*INT(L/256)" 

PRINT "LQAD XREF" 

PRINT "POKE 103,1" 

PRINT "POKE 104,8" 

PRINT "GOTO 63956" 

PRINT CHR$ (4);"CLOSE" 

END 


(Fine) 


g 

a 

n 

q 

g 

d 

o 

o 

8 

o 

o 

o 

Q 

0 

o 

Q 

O 

oj 

o 

G 

Q 

B 
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Listato 1. Movie Construction Kit 

EDIT FIELD 4,"1",(380, 
EDIT FIELD 1 

260)- 

- (407,275) 

È> 





GOSUB Refresh 






Alcune righe del listato sono state spezzate 


WINDOW 3,"", (130, 75)-(370,175),-2 




per esigenze di impaginazione: 


TEXTFONT 0 

CALL TEXTFACE(33) :MOVETO 40,25:PRINT"Movie Constru « 




quando incontrate il simbolo • continuate a 


ction Kit" 






battere SENZA PREMERE il tasto di return 


CALL TEXTFACE(0):MOVETO 75, 

,50:PRINT"© Applicando"; 






BUTTON 1/1/ OK / (1/1/ ) " (^ J1 / -/t ) 




' Movie Construction Kit 

rect% (0) = 71 :rect%(1)=168 :rect% (2) = 97:rect%(3) « 




1 di Mike Linkovich 

= 234 






' © Applicando & 

PENSIZE 2,2 






' MicroSPARC, Ine. 

FRAMEROUNDRECT VARPTR(rect%(0)),16,16 




' Richiede 512K o più 

z = 0 






' Microsoft Basic (b) versione 2.0 o superiore 

WHILE z <>1 AND z <> 6 

: z = 

DIALOG(0):WEND 




' Mac Plus richiede la versione 2.1 o superiore 

WINDOW CLOSE 3 







GOSUB Refresh 






' -Inizializzazione- 

DimMenu 1 






DEFINT A-z 

WHILE DIALOG(0):WEND 






DIM Pattern (19) ,R(3) , RR (3) 

MENU 






FOR c=0 TO 3 

'-Loop Principale- 







Loop: 






Pattern(c+4)=30685 

CALL PENSIZE (3,3) 






Pattern(c+8)=-21931 

WHILE MOUSE(0)>-l 







x=MOUSE(1):y=MOUSE(2) 




Pattern(c+16) =0 

IF x>=20 AND y>=15 

AND x<=319 AND y<=254 A « 




NEXT 

ND CsrOl THEN Csr=l 






WINDOW 4,"", (0, 0)-(512,342) ,3 

IF (x<20 OR y<15 OR x>319 OR y>254) AND 

Cs « 




CALL BACKPAT (VARPTR(Pattern(8)) ) 

r<>0 THEN Csr=0 






CLS 

MenNo=MENU(0) 






1 Menus 

IF MenNo>0 THEN Csr=0:GOSUB MenuCheck 




MENU 1,0,1,"Archivio" 

Act =DIALOG(0) 






MENU 1,1,1,"Nuovo" 

IF Act=l THEN 

Csr=i 

0:GOSUB ButCheck 




MENU 1,2,1,"Apri..." 

IF Act=5 THEN 

Csr=i 

0:GOSUB Refresh 




MENU 1,3,1,"Registra" 

WEND 






MENU 1,4,1,"Registra Come..." 

GET (370, 15)-(469, 

94) ,' 

Tframe# (0) 




MENU 1,5,1,"Unisci..." 

WHILE MOUSE(0) < 0 






MENU 1,6,1,"Esci al BASIC" 

IF Tool-1 THEN 

GOSUB Pencil 




MENU 1,7,1,"Esci alla Scrivania" 

IF Tool>l THEN 

GOSUB Shape 




MENU 3,0,1,"Fotogrammi" 

GET (370, 15)-(469, 

94),Fg# (F*l41) 




MENU 3,1,1,"Annulla” 

WEND 






MENU 3,2,1,"Taglia Fotogramma" 

GOTO Loop 






MENU 3,3,1,"Copia fotogramma" 







MENU 3,4,0,"-" 1 <— Genera una riga tratteggiata 

ErrTrap: 






MENU 3,5,1,"Incolla Inserisce" 

WINDOW 3,"", (130, 75)- (370,150),-2 




MENU 3,6,1,"Incolla Rimpiazza" 

BEEP:TEXTFONT 0 






MENU 3,7,1,"Incolla e Unisce" 

MOVETO 17,30 






MENU 3,8,1,"Importa Appunti" 

xx = ERR 






MENU 3,9,0,"-" 

IF xx = 7 OR xx = 

6 THEN PRINT "Sono necessari « 




MENU 3,10,1,"Strumenti" 

512K o più" ELSE PRINT"Error in DIM statement. 

II 




MENU 3,11,0,"-" 

BUTTON 1,1,"OK", (151, 40)-(211,60) 




MENU 3,12,1,"Ciclo Continuo..." 

WHILE DIALOG (0)01 

: WEND 




MENU 4,0,0,"" 

WINDOW CLOSE 3 






MENU 5, 0, 0, "" 

SYSTEM 






DimMenu 0 







' -Inizializza variabili semplici prima delle ma • 

Pencil: 






tri ci- 

CALL PENPAT(VARPTR(Pattern(0))) 




F=1:EF=l:Tool=l:Psize=l:Patn=l 

x=INT((MOUSE(1)-20)/3)+370 :y=INT((MOUSE(2)- 

15) « 




c2!=0 :z=0:x=0:y=0:Act=0:MenNo=0 

/3)+15 






FileName$="":Chng=0:ox=0:oy=0:z=0 

IF POINT(x,y)=33 THEN CALL PENPAT(VARPTR(Patte « 




BAct=6:B=0:B1=0:A$="":Act$="":d=0:Dr=l 

rn(16))) 






En=0:St=0:Spd=0:Fl$="":F2$="":Csr=0 

z = MOUSE(0) 






MX=200 

WHILE z<0 






ON ERROR GOTO ErrTrap 

PenLoop: 






DIM Fg# (141*MX),Tools (158),Temp#(140),Tframe#(140) 

z = MOUSE(0) 






ON ERROR GOTO 0 

IF MOUSE(1)<20 

OR MOUSE(2)<15 OR MOUSE(1)+ < 




DIM Watch(33) 

3* (Psize-1)>319 OR MOUSE(2)+3*(Psize-1)>254 THEN P « 




FOR c=0 TO 157 

enLoop 






READ Tools(c) 

x=INT((MOUSE(1)-20)/3)*3+20 'Trova la posi « 




NEXT 

zione in un box di editing 





FOR c = 0 TO 33 : READ Watch(c) :NEXT 

y=INT((MOUSE(2)-15)/3)*3+15:Chng=l 




R(0)=113 :R(1)=372:R(2)=129:R(3)=4 68 :BAct = 6 

CALL PENSIZE(3 

*Psize,3*Psize) 




'-Finestre- 

CALL MOVETO(x, 

y) 




WINDOW 1, (4,22)-(508,340),3 

CALL LINETO(x. 

y) 




CALL TEXTFONT(0) 

x=(x-20)/3+370 

' Trova la posizione nel 

fo » 



CALL TEXTMODE(9) 

togramma corrente 





GET (370, 15) -(469, 94), Fg# (F*141) 

y=(y-15)/3+15 





BUTTON 1,1,"<<", (370, 164)- (417, 184) 

CALL PENSIZE(Psize, 

,Psize) 



BUTTON 2,1,"»", (423, 164) - (470, 184) 

CALL MOVETO(x. 

y):CALL LINETO(x,y) 



EDIT FIELD 1,"1", (380,190)-(407,205) 

WEND 





BUTTON 3,1,"Vai a", (423,188)-(470,208) 

PenSkip: 





BUTTON 4,1,"<", (370,135)-(417,155) 

RETURN 





BUTTON 5,1,">", (423,135)-(470,155) 






Box$ = CHR$(251) 

Shape: 





BUTTON 6,0,Box$, (370,111)- (470, 131) 

IF MOUSE(1)<20 OR ] 

MOUSE(2)<15 OR MOUSE(1)>319 « 



BUTTON 7,1,"Sinistra",(110,279)-(170,299) 

OR MOUSE(2)>254 THEN WHILE 

MOUSE(0)<>0:WEND:GOTO S « 



BUTTON 8,1,"Destra", (204,27 9)-(264, 2 9 9) 

hpSkip 





BUTTON 9,1,"Su", (172, 268)-(202, 288) 

CALL PENSIZE(Psize 

,Psize) 



BUTTON 10,1,"Giu", (172, 289)-(202, 310) 

CALL PENPAT(VARPTR(Pattern(4* (Patn-1) ))) 



EDIT FIELD 2,"50", (380, 218)-(407, 233) 

ox=INT((MOUSE(1)-20)/3)+370 



EDIT FIELD 3,"1", (380,239)-{407,254) 

oy=INT((MOUSE(2)-15)/3) +15 

? 
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~l— - — LISTATI PER 

(segue: Listato 1. Movie Costruction Kit) 

MACINTOSH = 





WHILE MOUSE(0)<0 

Dn<T nn uì_/ìiq / r* i a i \ Dcn 1 


t ^ x x i v - 


^ 1 yiT V 1- XIX / ,L OI_, X 



ShpLoop: 

GET (370,15)- ! 

(469, 

94),Tframe#(0) 



z=MOUSE(0) 

AdSkip2: 





IF z >-l THEN ShpSkipl 

A$=RIGHT$(STR$(F) , 

LEN(STR$(F))-1) 



IF MOUSE (1)<20 OR MOUSE(2)<15 OR MOUSE • 

EDIT FIELD 1,A$, (380,190)-(407,205) 



(1)>319 OR MOUSE(2)>254 THEN ShpLoop 

RETURN 





x=INT((MOUSE(l)-20)/3)+370 

Full: 





y=INT( (MOUSE(2)—15)/3)+15:Chng=l 

WINDOW 3,"", (130,75)-(370,150),-2 



GOSUB DrwShp 

BEEP:TEXTFONT 0 





GET (370,15)-(469/94),Fg#(F*141) 

MOVETO 17,30 





PUT (20, 15)- (319,254),Fg# (F*141),PSET 

PRINT MX-1;" fotogrammi massimo." 



WHILE MOUSE(0)<0 AND MOUSE(l)=x AND MOUSE( • 

BUTTON 1,1,"OK", (151,40)-(211, 60) 



2)=y:WEND 

WHILE DIALOG(0)<>1:WEND 



PUT (370,15)-(469,94),Tframe#(0),PSET 

WINDOW CLOSE 3 





ShpSkipl: 

RETURN 





WEND 

CALL PENMODE(8) 

GoFrame: 





GOSUB DrwShp 

z=VAL(EDIT$(1) ) 





GET (370,15)-(469,94),Fg#(F*141) 

IF z<1 OR z>EF THEN BEEP: GOTO GoSkip 



PUT (20, 15)- (319,254),Fg#(F*141) ,PSET 

GET (370,15)-(469, 

94) , 

Tframe#(0) 



ShpSkip: 

F=z 





RETURN 

PUT (370,15),Fg# (F*141),PSET 




PUT (20, 15)- (319, 254) , 

Fg# (F*141) ,PSET 



DrwShp: 

GET (370,15)-(469, 

94) , 

Tframe#(0) 



RR(0)=oy:RR(1)=ox:RR(2)=y+l:RR(3)=x+l 

GoSkin: 





IF RR(0)>RR(2) THEN SWAP RR(0),RR(2) 'Scambia • 
se si preme '<• 

A$=RIGHT$(STR$(F), 

LEN(STR$(F))-1) 



EDIT FIELD 1,A$, (380,190)-(407,205) 



IF RR(1)>RR(3) THEN SWAP RR(1),RR(3) 

ON (Tool-1) GOSUB Edge,Box,Ovai,FillBox,FillOvl 

RETURN 





RETURN 

PlayR: 






Dr=-1 : R (0) =137 :R (1) =372: R (2) =153 : R (3) =415 : BAct =4 

;|||| 


Edge : 

GOSUB Play 





MOVETO ox,oy 

RETURN 





IF x<471-Psize AND y<96-Psize THEN LINETO x,y 
RETURN 

PlayF: 






Dr=l:R(0)=137:R(1) 

=425 

:R(2)=153 :R(3)=468 :BAct = 5 



Box: 

GOSUB Play 





CALL FRAMERECT(VARPTR(RR(0) ) ) 

RETURN 





RETURN 

Play: 





Ovai : 

Spd=VAL(EDIT$(2) ) * 

5 : St 

=VAL(EDITS(3)):En=VAL(ED • 



CALL FRAMEOVAL(VARPTR(RR(0))) 

IT$ (4)) 





RETURN 

Act$="" 






IF Spd > 500 THEN 

Act$ 

="La velocità è troppo a • 



FillBox: 

Ita." 





CALL PAINTRECT(VARPTR(RR(0) ) ) 

IF Spd < 1 THEN Act$=" 

La velocità è troppo 

bas • 



RETURN 

sa. " 






IF St > En THEN Act$=" 

L'inizio è troppo alto." 



FillOvl: 

IF St < 1 THEN Act$="L 

'inizio è troppo basso." 



CALL PAINTOVAL(VARPTR(RR(0) ) ) 

IF En > EF THEN Act$=" 

La fine è troppo alta." 



RETURN 

IF En < 1 THEN Act$="La fine è troppo bassa." 




IF Act$="" THEN PISkip 




ButCheck: 

WINDOW 3,"", (130,7 5)- (37 0, 150) ,-2 



B=DIALOG (1) 

BEEP:TEXTFONT 0 





ON B GOSUB Prev,Adv,GoFrame,PlayR,PlayF,PlayF, • 

MOVETO 17,30 





ShiftL,ShiftR,ShiftU,ShiftD 

PRINT Act$; 




\ j 

RETURN 

BUTTON 1,1,"OK", (151,40)- (211, 60) 



WHILE DIALOG (0)01 

: WEND 



Prev : 

WINDOW CLOSE 3 : BAct= 

6 



GET (370,15)-(469,94),Fg#(F*141) 

GOTO PlSkip2 





IF F<2 THEN BEEP: GOTO PrSkip 

PISkip: 





F=F—1 

DimMenu 0 





PUT (370,15),Fg#(F*141),PSET 

FOR c=1 TO 10 





PUT (20, 15)- (319,254),Fg#(F*141),PSET 

BUTTON c,0 





GET (370,15)-(469, 94),Tframe#(0) 

NEXT 





PrSkip: 

CALL INVERTROUNDRECT(VARPTR(R(0)),9,9) 'Eviden • 



A$=RIGHT$(STR$(F),LEN(STR$(F) ) -1) 

zia il bottone di proiezione 



EDIT FIELD 1,A$, (380,190)-(407,205) 

BUTTON 6,1 'Abilita il 

bottone di arresto 



RETURN 

GET (370,15)-(469, 

94),: 

Fg#(F*141) 



• 

Act=0:c=St:Spd=500 

-Spd 

: IF Dr—1 THEN c=En 



Adv: 

, WHILE ActOl 




IF F>=MX-1 THEN GOSUB Full:GOTO AdSkip2 

Act=DIALOG(0) 





z=(PEEK(378)=128) 'Rileva il tasto Comando 

IF Act = 5 THEN GOSUB Refresh 



GET (370,15)-(469,94),Fg#(F*141) 

FOR d=l TO Spd 

:NEXT 



F=F+1 

PUT (370,15),Fg#(c 

*141),PSET 



IF F<=EF THEN AdSkip 

IF c=St AND Dr 

=-l THEN c=En+l 



EF=F: LINE(20, 15)-(319,2 54), 30, BF 

IF c=En AND Dr 

=1 THEN c=St-l 



LINE (370,15)-(469, 94), 30,BF:Chng=l 

c=c+Dr 





GET (370,15)-(469,94),Ttrame#(0) 

WEND 





A$=RIGHT$(STR$(EF),LEN(STR$(EF))-1) 

PUT (370,15),Fg#(F 

*141),PSET 



EDIT FIELD 4,A$, (380,260)-(407,275) 

FOR c=1 TO 10 





IF NOT z THEN GOTO AdSkip2 

BUTTON c,1 





'-Identifica l'ultimo fotogramma- 

NEXT 





PUT (20, 15)-(319,254),Fg#( (F-l)*141),PSET 

DimMenu 1 





R(0)=15:R(1)=20:R(2)=254:R(3)=319 

BUTTON 6,0:R(0)=113:R(1)=372 :R(2)=129 :R(3) = 

468 •: 



PENMODE 11:CALL PENPAT(VARPTR(Pattern(8) ) ) 

:BAct=6 





PENSIZE 300,240:MOVETO 20,15:LINETO 20,15:PENM • 

CALL INVERTROUNDRECT(VARPTR(R(0) ),9,9) 



ODE 8 

GOTO AdSkip2 

AdSkip: 

PUT (370,15),Fg# (F*141),PSET 

PlSkip2: 

RETURN 

CU i ^4- T • 





bnir l l. 
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~l LISTATI PER 

(segue: Listato 1. Movie Costruction Kit) 

GET (370,15)-(469,94),Tframe#(0) 

MACINTOSH = 

F=1:Chng=0 



È 






SCROLL (20,15)-(319, 254),-3,0 

OpSkip2: 





SCROLL (370,15)-(469, 94),-1,0 

INITCURSOR 





GET (370, 15)-(469, 94),Fg#(F*141) 

DimMenu 1 





Chng=l 

RETURN 





RETURN 

Sve : 





ShiftR: 

IF FileName$="" THEN GOTO SveAs ' Serve il 

nom « 



GET (370, 15)-(469, 94),Tframe#(0) 

e del file? 





SCROLL (20, 15) — (319, 254),3,0 

WINDOW 2,"", (373,36)-(475,118),3 



SCROLL (370,15)-(469, 94), 1,0 

DimMenu 0 





GET (370, 15)-(469, 94),Fg# (F*141) 

SETCURSOR VARPTR(Watch(0)) 



Chng=l 

OPEN FileName$ FOR OUTPUT AS #1 



RETURN 

PRINT#1,EF 

FOR c=l TO EF 





ShiftU: 

PICTURE ON 




GET (370, 15)-(469, 94),Tframe#(0) 

PUT (0,0), 

Fg# (c*l41) , PSET 



SCROLL (20, 15)-(319, 254), 0,-3 

PICTURE OFF 




SCROLL (370,15)- (469, 94), 0,-1 

A$=PICTURE$:z= 

LEN (A$) 



GET (370, 15)-(469, 94),Fg# (F*141) 

PRINT #1, z 




Chng=l 

PRINT #1,A$ 




RETURN 

NEXT 






WINDOW CLOSE 2 




ShiftD: 

CLOSE #1 :NAME FileName$ AS FileName$,"FILM" 



GET (370, 15)-(469, 94),Tframe#(0) 

SCROLL (20, 15) - (319,254), 0,3 

Chng=0 

INITCURSOR 









SCROLL (370,15)-(469, 94), 0,1 

DimMenu 1 





GET (370, 15)- (469,94),Fg#(F*141) 

Chng=l 

RETURN 





RETURN 

SveAs: 






FileName$=FILES$(0,"Registro il film come.. 

.") 



MenuCheck: 

IF FileName$="" THEN SASkip 



GET (370, 15) - (469,94),Fg# (F*141) 

GOSUB Sve 





IF MenNo=l THEN ON MENU(l) GOSUB Newfile,Opn,S « 

SASkip: 





ve,SveAs,Mrge,QuitBAS,QuitSys 

RETURN 





IF MenNoO 3 THEN GOTO McSkip 

MenNo=MENU(1):ON MenNo GOSUB Undo,Cut,Copy,Cop « 

Mrge: 





y,PasteI,PasteR,PasteO,ReadClip,PasteO,Tool Pick,To • 

IF Chng=0 THEN MgSkip 




olPick,Wrap 

Act$="chiudere":GOSUB 

Verify 



IF MenNo<8 THEN GET (370, 15)-(469, 94),Fg# (F*14 • 

IF Act=l THEN GOSUB Sve 



1):PUT (20, 15)- (319, 254),Fg#(F*141),PSET 

IF Act=3 THEN MgSkip3 




IF MenNo=10 THEN PUT (370,15),Fg#(F*141) 

MgSkip: 





McSkip: 

WINDOW 3,"", (130, 75)-(370,150),-2 



MENU 

B=2:B1 = 0:TEXTFONT 

0 




RETURN 

MOVETO 20,20:TEXTFACE 

4 :PRINT"Opzioni di union « 




e...":TEXTFACE 0 





Newfile: 

BUTTON 1,1,"Ripeti il 

2° film fino alla fine", • 



IF Chng=0 THEN NfSkip 

(20,30)- (230, 45),2 





Act$="chiudere":GOSUB Verify 

BUTTON 2,2,"OR", (20,50) — (65, 65) ,3 



IF Act=2 THEN NfSkip 

BUTTON 3,1,"AND", 

(65, 50)-(110,65),3 



IF Act=3 THEN NfSkip2 

BUTTON 4,1,"XOR", 

(120, 

50)-(165,65),3 



IF Act=l THEN GOSUB Sve:IF FileName$ = "" THEN « 

BUTTON 5,1,"COPY", 

. (170 

, 50)- (220,65),3 



NfSkip2 

BUTTON 6,1,"OK", (175, 5)- (227, 25) 



NfSkip: 

MgLoop: 





Chng=0:F=1:EF=1 

WHILE DIALOG(0)<>1 

: WEND 



LINE (20,15)-(319, 254),30,BF: LINE(370, 15)-( « 

Act=DIALOG(1): 

:IF Act=l THEN Bl=NOT B1:BUTT « 



469,94),30,BF 

ON 1,ABS(Bl-1) 





GET (370, 15)-(469, 94),Fg# (F) 

IF Act>l AND Act<6 

THEN BUTTON B,l:B=Act:B - 



EDIT FIELD 4,"1", (380,260)-(407,275) 

UTTON B,2 





EDIT FIELD 1, M 1 "(380,190) - (4 07,205) 

IF Act<6 THEN MgLoop 




FileNameS = "" 

FOR c=l TO 6:BUTTON CLOSE c:NEXT:B=B-l 



GET (370,15)-(469,94),Tframe#(0) 

CLS:MOVETO 17,40:PRINT 

"Seleziona il primo film < 



NfSkip2: 

..." ; 





RETURN 

FOR d=l TO 1000:NEXT 





F1$=FILES$(1,"FILM"):IF Fl$="" THEN MgSkip3 



Opn: 

MOVETO 17,40:PRINT"Seleziona il secondo film.. « 



IF Chng=0 THEN OpSkip 

Il • 





Act$="chiudere" 

FOR d=l TO 1000 :NEXT 




GOSUB Verify 

F2$=FILES$(1,"FILM"):IF F2$="" THEN MgSkip3 



IF Act=l THEN GOSUB Sve:IF FileName$ = "" THEN « 

WINDOW CLOSE 3 





OpSkip2 

OPEN FI $ FOR INPUT AS 

#1 



IF Act=3 THEN OpSk.ip2 

OPEN F2$ FOR INPUT AS 

#2 



OpSkip: 

WINDOW 2,"", (373, 3 6)- (475,118),3 



FileName$=FILES$(1,"FILM") 

SETCURSOR VARPTR(Watch(0)) 



GOSUB Refresh 

INPUT#1,EF:INPUT #2,En:c2!=0 



IF FileName$="" THEN OpSkip2 

FOR c=l TO EF 





WINDOW 2,"", (373,36)-(475,118),3 

c2!=c2!+1 : 

INPUT #1 , z 



DimMenu 0 

A$=INPUT$ (z , 1) 

:Act$=INPUT$(1, 1) 



SETCURSOR VARPTR(Watch(0)) 

PICTURE(0, 

0 ) , A$ 



OPEN FileName$ FOR INPUT AS #1 

IF c2!>En 

AND B1=0 THEN MgSkip2 



INPUT#1 , EF 

IF c2!>En 

THEN 

c2!=1 :CLOSE #2:OPEN 

F2$ « 



FOR c=l TO EF 

FOR INPUT AS #2 : INPUT #2,En 



INPUT #1, z 

GET (0,0)-(99, 7 9) , Temp#(0) 



A$=INPUT$(z,1):Act$=INPUT$(1,1) 

INPUT #2,z 





PICTURE(0,0) , A$ 

* A$=INPUT$( Z, 2 ) 

: Act$=INPUT$(1, 2) 



GET(0,0)-(99,79) , Fg#(c*141) 

PICTURE(0, 

0) ,A$ 



NEXT 

IF B=1 THEN PUT (0,0) , Temp#(0) , OR ELSE < 



CLOSE #1 : WINDOW CLOSE 2 

IF B=2 THEN PUT(0,0) , 

Temp# (0),AND ELSE IF B=3 

THE « 



A$=RIGHT$(STR$(EF) , LEN ( STR$ (EF) ) -1) 

N PUT (0,0) , Temp#(0) , XOR ELSE PUT(0,0) , Temp#(0) , 

PSET 



EDIT FIELD 4,A$, (380, 260)-(407, 275) 

EDIT FIELD 1 , "1" , (380, 190) - (407, 205) 

MgSkip2 : 
cpt m n \-t 

QQ 

Vnà In* 1 41 \ 
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(segue: Listato 1. Movie Costruction Kit) 

NEXT 

CLOSE #l:CLOSE #2:WINDOW CLOSE 2:Chng=l 
A$=RIGHT$(STR$(EF), LEN(STR$(EF))-1) 

EDIT FIELD 4,A$, (380, 260)-(407,275) 

MgSkip3: 

WINDOW CLOSE 3 

INITCURSOR 

RETURN 

QuitBAS: 

IF Chng=0 THEN QbSkip 
Act$="uscire":GOSUB Verify 

IF Act=l THEN GOSUB Sve:IF FileNameS = "" THEN 
QbSkip2 
QbSkip: 

IF Act =2 OR Act=l OR Chng=0 THEN MENU RESE 
T:WINDOW CLOSE 1:WINDOW CLOSE 4 : END 
QbSkip2: 

RETURN 

QuitSys: 

IF Chng=0 THEN QsSkip 
Act$="uscire":GOSUB Verify 

IF Act=l THEN GOSUB Sve:IF FileName$ = "" THEN 
QsSkip2 
QsSkip: 

IF Aet=2 OR Act = l OR Chng=0 THEN MENU RESE 
T:WINDOW CLOSE 1 :WINDOW CLOSE 4:SYSTEM 
QsSkip2: 

RETURN 

Undo : 

PUT (370,15)-(469,94),Tframe#(0),PSET 
RETURN 

Cut: 

DimMenu 0 

SETCURSOR VARPTR(Watch(0)) 

GET (370,15)-(469,94),Fg#(0) '0 corrisponde ad 

Appunti MCK 

IF F=EF THEN CtSkip 
FOR c=F*141 TO (EF-1)*141 
Fg#(c)=Fg#(c+141) 

NEXT 

EF-EF-.1 : GOTO CtSkip2 
CtSkip: 

IF EF>1 THEN F=F-1:EF=EF-1: GOTO CtSkÌp2 
LINE (20, 15)-(319,254), 30,BF:LINE(370,15) -( 
469,94),30,BF 

GET (370,15)-(469, 94),Fg#(141) 

CtSkip2: 

A$=RIGHT$(STR$(EF) ,LEN (STR$(EF))-1) 

' EDIT FIELD 4,A$, (380,260)-(407,275) 
A$=RIGHT$(STR$(F),LEN(STR$(F))-1) 

EDIT FIELD 1,A$, (380,190)-(407,205) 

PUT (370,15),Fg# (F*141),PSET:Chng=l 
INITCURSOR 

GET (370,15)- (469, 94),Tframe#(0) 

DimMenu 1 
RETURN 

Copy: 

GET (370,15)-(469, 94),Fg#(0) 

RETURN 

Pastel: 

DimMenu 0 

SETCURSOR VARPTR(Watch(0) ) 

FOR c=(EF+1)*141-1 TO F*141 STEP -1 
Fg#(c+141)=Fg# (c) 

. NEXT 

PUT (370,15),Fg# (0),PSET 
EF-EF+l:Cftng-l 

A$=RIGHT$ (STR$(EF) ,LEN (STR$(EF))-1) 

EDIT FIELD 4,A$, (380,260}-(407,275) 

EDIT FIELD 1 
INITCURSOR 

GET (370,15)-(469,94),Tframe#(0) 

DimMenu 1 
RETURN 

P cL St 6R " 

PUT (370,15),Fg#(0),PSET:Chng=l 
RETURN 

PasteO: 

PUT (370,15),Fg#(0),OR:Chng=l 
RETURN 

ToolPick: 

WINDOW 2,"", (100,50)-(410, 230),-2 


FOR c=l TO 18 STEP 3 

BUTTON INT(c/3)+1,1,"", (25,21+ (c/3)*20)-(4 
0,36+(c/3)*20),3 

BUTTON INT (c/3)+7,1," H , (115,21+(c/3)*20)-( 
130,36+(c/3)*20),3 

BUTTON INT (c/3)+13,1,(217,21+(c/3)*20)- 
(232,36+ (c/3)*20),3 
NEXT 

BUTTON Tool,2:BUTTON 6+Psize,2 :BUTTON 12+Patn,2 
BUTTON 18,1,"OK", (200, 150)-(275, 170) 

Tooll: 

PUT(50,31),Tools(0) , OR 
PUT(52,50),Tools(21),OR 
PUT(52,70),Tools(50),OR 
PUT (52,90),Tools(77),OR 
PUT(52,110),Tools(104),OR 
PUT(52,130),Tools(131),OR 
z=l 

FOR c=34 TO 134 STEP 20 
CALL PENSIZE(1,z) 

MOVETO 140, c 
LINETO 180,c 
z = z + l 

NEXT 

CALL PENSIZE(1,1) 

RR(1)=24 2 :RR(3)=28 5 
FOR c=0 TO 4 

RR (0)=c*20 + 29:RR(2)=c*20 + 43 

CALL FILLRECT(VARPTR(RR(0)),VARPTR(Pattern f 

(c*4))) 

CALL FRAMERECT(VARPTR(RR(0))) 

NEXT 
Tool2: 

Act=0 

WHILE Act=0:Act=DIALOG(0):WEND 
IF Aet=5 THEN Tooll 
IF ActOl THEN Tool2 
Act=DIALOG(1) 

IF Act>6 THEN Tool3 

BUTTON Tool,1:Tool=Act:BUTTON Act,2 
GOTO Tool2 
Tool3: 

IF Act>12 THEN Tool4 

BUTTON Psize + 6,1 :Psize=Act-6:BUTTON Act, 2 
GOTO Tool2 
Tool4: 

IF Act=18 THEN Tool5 

BUTTON Patn+12,1 :Patn=Act-12:BUTTON Act,2 
GOTO Tool2 
Tool5: 

WINDOW CLOSE 2 
RETURN 

Wrap: 

WINDOW 2,"", (130,75)-(370, 235),-2 
TEXTFONT 0 :TEXTFACE 4 :B=1 

MOVETO 20, 30 :PRINT"Ciclo Continuo dello Sfondo 
TEXTFACE 0 

MOVETO 20, 55 :PRINT"Direzione.. 

BUTTON 1,2,"Sin.", (20, 60)-(70, 75),3 
BUTTON 2,1,"Destr.", (7 6, 60)- (130,75),3 
BUTTON 3,1,"Giù", (132, 60)- (185,7 5),3 
BUTTON 4,1,"Su", (188,60)-(225, 75),3 
MOVETO 20, 100 :PRINT"Incremento :" 

MOVETO 20, 120:PRINT" (Questa operazione"; 

MOVETO 20, 13 5:PRINT"distruggerà i foto-"; 

MOVETO 20, 150:PRINT"grammi successivi)."; 

EDIT FIELD 1,"4", (120, 88)-(140,102) 

BUTTON 5,1,"OK", (160,95)-(220, 115) 

BUTTON 6,1,"Cancella", (160,120)-(220,140) 

WpLoop: 

Act = 0 

WHILE ActOl AND Act<>6 
Act=DIALOG (0) 

WEND 

IF Act=6 THEN WpSkip 
Act=DIALOG(1):IF Act=6 THEN WpSkip3 
IF Act>4 THEN WpSkip 

BUTTON B,l:B=Act:BUTTON B, 2-.GOTO WpLoop 
WpSkip: 

Z=VAL(EDIT$(1)) :IF z<1 OR z>=80 THEN BEEP: GOTO 
WpLoop 

WINDOW CLOSE 2 

x=370 : ox=4 69 :y=15 : oy.=94 : RR (0) =0:RR (1) =0 
IF B=1 THEN ox=370+(z-1) :RR(0) =-z 'Cerca il pe j. 
zzo per il ciclo continuo 

IF B=2 THEN x=469-(z-1) :RR(0)=z 
IF B=3 THEN y=94-(z-1):RR(1)=z 
IF B=4 THEN oy=15+(z-1):RR(1)=-z 
IF B<3 THEN d=INT(100/z) ELSE d=INT(80/z) 

FOR c= (F+l) TO (F+d-1) 

(Continua: Listato 1. Movie Costruction Kit) 
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LISTATI PER MACINTOSH 


(segue: Listato 1. Movie Costruction Kit) 

PUT(370,15),Fg#((c-1)*141) , PSET 
GET (x,y)-(ox,oy),Temp#(0) 

SCROLL (370, 15)- (4 69, 94) ,RR(0) ,RR(1) 

IF B=1 THEN PUT (469-(z-1), 15)-(469, 94),Tem 
p#(0),P SET 

IF B=2 THEN PUT (370,15)-(370+ (z-1),94),Tem 
p# (0),PSET 

IF B=3 THEN PUT (370,15)-(469, 15+(z-1)),Tem 
p#(0),P SET 

IF B=4 THEN PUT (370,94-(z-1))-(469, 94),Tem 
p#(0),P SET 

GET(370,15)-(469,94),Fg#(c*141) 

NEXT:c=c-l:Chng=l 

PUT (370,15),Fg#(F*141) , PSET 

IF OEF THEN EF=c 

A$=RIGHT$(STR$(EF),LEN(STR$(EF) ) -1) 

EDIT FIELD 4,A$,(380,260)-(407,275) 

WpSkip3: 

WINDOW CLOSE 2 : RETURN 
Verify: 

WINDOW 3,"", (130, 75)-(370,175),-2 
TEXTFONT OlMOVETO 17,30 

PRINT "Registro i cambiamenti del film?"; 
BUTTON 1,1,"Si", (17,40)-(77, 60) 

BUTTON 2,1,"No", (17,68)-(77,88) 

BUTTON 3,1,"Cancella", (151, 68)-(211,88) 
rect%(0) = 37 :rect%(1)=14 :rect%(2) = 63:rect% 
(3) = 80 

PENSIZE 2,2 

FRAMEROUNDRECT VARPTR(rect%(0)),16, 16 
z = 0 

WHILE Z <>1 AND z <> 6:z = DIALOG(0):WEND 
Act=DIALOG(1) 

IF z = 6 THEN Act = 1 
WINDOW CLOSE 3 
RETURN 

Refresh: 

WINDOW OUTPUT 4:CLS 
WINDOW OUTPUT 1 
MOVETO 17,293 
PRINT"Scorrimento:"; 

MOVETO 416, 230 :PRINT"Velocità" 

MOVETO 416,251:PRINT"Inizio" 

MOVETO 416, 27 2 :PRINT"Fine" 

LINE (363,106)-(476,282),,B 
CALL PENSIZE(1,1) 

CALL PENPAT(VARPTR(Pattern(8)) ) 

MOVETO 373,159:LINETO 467,159 
MOVETO 373,212:LINETO 467,212 
CALL PENPAT(VARPTR(Pattern(0))) 

CALL PENSIZE (3,3) 

RR(0)=11:RR(1)= 16: RR(2)=259 :RR(3)=3 24 
CALL FRAMERECT(VARPTR(RR(0))) 

LINE (13,8)-(326, 261) ,,B 

RR(0)=11 :RR(1)=366:RR(2)=99:RR(3)=4 74 

CALL FRAMERECT(VARPTR(RR(0))) 

LINE (3 63,8)-(476,101) , ,B 


Listato 2. Proiettore Film 

Proiettore Film 
di Mike Linkovich 
© Applicando & 

MicroSPARC, Ine. 

Microsoft Basic (b) versione 2.0 o superiore 
Mac Plus richiede versione 2.1 o superiore 

' -Inizializzazione— 

DEFINT A-z 

DIM Pattern (19) ,R (3) , RR (3) 

FOR c=0 TO 3 

Pattern(c)=-l 
Pattern(c+4)=30685 
Pattern(c+8)=-21931 
Pattern (c+12)=-30686 
Pattern(c+16)=0 

NEXT 

WINDOW 4,"", (0,0)-(512, 342),3 
CALL BACKPAT (VARPTR(Pattern(8)) ) 

CLS 

' Menus 

MENU 1,0,1,"Archivio" 

MENU 1,1,1,"Apri..." 

MENU 1,2,1,"Esci al BASIC" 

MENU 1,3,1,"Esci alla Scrivania" 

MENU 2,0,0,"" 


PUT (370,15),Fg#(F*141),PSET 

PUT (20,15)-(319,254),Fg#(F*141),PSET 

BUTTON BAct,1 :BUTTON BAct,0 

CALL INVERTROUNDRECT(VARPTR (R(0)) ,9,9) 

RETURN 

ReadClip: 

WINDOW 3,"", (373,36)-(475,118),3 
OPEN "cliprpicture" FOR INPUT AS #2 
image$ = INPUT$ (LOF(2),2) 

PICTURE (0,0),image$ 

GET (0,0)-(9 9, 79),Fg#(F*141) 

CLOSE #2 
WINDOW CLOSE 3 
Chng=l 
RETURN 

SUB DimMenu(Menable) STATIC 

IF Menable THEN MENU 1,0,1:MENU 3,0,1 ELSE MENU 1, 
0,0: MENU 3,0,0 
END SUB 

' Dati icone 
' Matita 

DATA 31, 9, 255,-4, 800, 726, 3135,-278, 14368, 7 
26,-2016, 746, 14368, 982, 3135 
DATA -22, 800, 726, 255,-4, 0 
'Bordo 

DATA 24, 13,-16384, 0,-4096, 0, 15360, 0, 3840, 0 
, 960, 0, 240, 0, 60 

DATA 0, 15, 0, 3,-16384, 0,-4096, 0, 15360, 0, 38 
40, 0, 768, 0 
'Rettangolo 

DATA 28, 12,-1,-16,-32768, 16,-32768, 16,-32768, 
16,-32768, 16,-32768, 16,-32768 

DATA 16,-32768, 16,-32768, 16,-32768, 16,-32768, 
16,-1,-16, 0 
'Ovale 

DATA 27, 12, 255,-8192, 3840, 7680, 12288, 384, 2 
4576, 192,-16384, 96,-32768, 32,-32768 
DATA 32,-16384, 96, 24576, 192, 12288, 384, 3840, 
7680, 255,-8192, 0 
'Rettangolo pieno 

DATA 28, 12,-1,-16,-10923, 21840,-21846,-21840,-1 
0923, 21840,-21846,-21840,-10923, 21840,-21846 
DATA -21840,-10923, 21840,-21846,-21840,-10923, 21 
840,-21846,-21840,-1,-16, 0 
'Ovale pieno 

DATA 27, 12, 255,-8192, 4010,-16896, 13653, 21888 
, 27306,-21824,-10923, 21856,-21846,-21856,-10923 
DATA 21856,-5462,-21792, 30037, 21952, 15018,-216 
32, 3925, 24064, 255,-8192, 0 
'Cursore orologio 

DATA 2016,2016,2016,2016,2064,4232,4232,4236,5004, 
4104,4104,2064 

DATA 2016,2016,2016,2016,2016,2016,2016,2016,4080, 
8184,8184,8184 

DATA 8184,8184,8184,4080,2016,2016,2016,2016,8,8 


(Fine) 

MENU 3,0,0,"" 

MENU 4,0,0,"" 

MENU 5,0,0,"" 

' -Inizializza semplici variabili prima delle ma 

trici — 

F=1:EF=1 

c2!=0 :z=0:x=0:y=0:ACT=0:MenNo=0 
FileName$="":ox=0:oy=0:z=0 
B=0:B1=0:A$="":ACT$="":D=0:DR=1 
En=0:St=0:Spd=0:Fl$="":F2$="" 

MX=200 

ON ERROR GOTO ErrTrap 

DIM Fg#(141*MX),Temp#(140),Tframe#(140) 

ON ERROR GOTO 0 
DIM Watch(33) 

FOR c = 0 TO 33 : READ Watch(c) :NEXT 
R(0)=169:R(1)=189:R(2)=187:R(3)=291:BAct=6 
'-Finestre- 

WINDOW 1,"", (4, 22)-(508,340),3 
CALL TEXTFONT(0) 

CALL TEXTMODE(9) 

BUTTON 4,1,"<", (188,192)-(238,212) 

BUTTON 5,1,">", (242,192)-(292,212) 

Box$ = CHR$(251) 

BUTTON 6,0,Box$, (188, 168)- (292, 188) 

EDIT FIELD 2,"50", (188, 218)-(220, 233) 

EDIT FIELD 3,"1", (188,239)-(220,254) 

EDIT FIELD 4,"1", (188,260)-(220,275) 

GOSUB Refresh 

(Continua: Listato 2. Proiettore Film) 
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LISTATI PER MACINTOSH 


(segue: Listato 2. Proiettore Film) 

WINDOW 3, " ", (130,75)-(370, 175), - 2 
TEXTFONT 0 

CALL TEXTFACE(33):MOVETO 65, 25 :PRINT"Proiettore Fi 
lm" 

CALL TEXTFACE(0) rMOVETO 72,55 :PRINT"© Applicando"; 
BUTTON 1,1,"OK", (171,74)-(231, 94) 

rect%(0) = 71 :rect% (1)=168:rect%(2) = 97:rect%(3) 
= 234 

PENSIZE 2,2 

FRAMEROUNDRECT VARPTR(rect%(0)),16,16 
z = 0 

WHILE z <>1 AND z <> 6:z = DIALOG(0):WEND 

WINDOW CLOSE 3 

GOSUB Refresh 

WHILE DIALOG(0):WEND 

MENU 

'-Loop principale- 

Loop: 

CALL PENSIZE (3,3) 

MenNo=MENU(0) 

IF MenNo>0 THEN GOSUB MenuCheck 
ACT=DIALOG(0) 

IF ACT=1 THEN GOSUB ButCheck 
IF ACT=5 THEN GOSUB Refresh 
GOTO Loop 

ErrTrap: 

WINDOW 3,"", (130,75)- (370, 150),-2 
BEEP:TEXTFONT 0 
MOVETO 17,30 
xx = ERR 

IF xx = 7 OR xx = 6 THEN PRINT "Servono 512K o 
più." ELSE PRINT"Errore nell'istruzione DIM" 
BUTTON 1,1,"OK", (151,40)-(211, 60) 

WHILE DIALOG(0)<>1:WEND 

WINDOW CLOSE 3 

SYSTEM 

ButCheck: 

B=DIALOG (1) 

ON B GOSUB Prev,Adv,GoFrame,PlayR,PlayF,PlayF 
RETURN 

Prev: 

RETURN 

Adv: 


GoFrame: 

RETURN 

PlayR: 

DR=-1:R(0)=193:R(1)=189:R(2)=211:R(3)=237:BAct=4 

GOSUB Play 

RETURN 

PlayF: 

DR=1:R(0)=193:R(1)=243 :R(2)=211 :R(3)=2 91:BAct = 5 

GOSUB Play 

RETURN 

Play : 

Spd=VAL(EDIT$(2))* 5 :St=VAL(EDIT$(3)) :En=VAL(ED 
IT$ (4) ) 

ACT$="" 

IF Spd > 500 THEN ACT$="Velocità troppo alta." 

IF Spd < 1 THEN ACT$="Velocità troppo bassa." 

IF St > En THEN ACT$="Inizio troppo alto." 

IF St < 1 THEN ACT$="Inizio troppo basso." 

IF En > EF THEN ACT$="Fine troppo alta." 

IF En < 1 THEN ACT$="Fine troppo bassa." 

IF ACT$="" THEN PlSkip 

WINDOW 3,"", (130,75)- (370, 150),-2 

BEEP:TEXTFONT 0 

MOVETO 17,30 

PRINT ACT$; 

BUTTON 1,1,"OK", (151,40)- (211, 60) 

WHILE DIALOG(0)<>1:WEND 

R(0)=169:R(1)=189:R(2)=187:R(3)=291 

WINDOW CLOSE 3 : BAct=6 

GOTO PlSkip2 

PlSkip-: 

DimMenu 0 
FOR c = 4 TO 6 
BUTTON C, 0 

NEXT 

CALL INVERTROUNDRECT(VARPTR(R(0)),9,9) 'Eviden « 

zia il bottone di proiezione 

BUTTON 6,1 'Abilita il bottone di arresto 


GET (189,74)-(28 8, 153) , Fg# (F*141) 




s 


ACT=0:c=St:Spd=500-Spd:IF DR=-1 THEN c=En 
WHILE ACTOl 

ACT=DIALOG(0) 

IF ACT = 5 THEN GOSUB Refresh 
FOR D=1 TO Spd:NEXT 
PUT (189,74),Fg# (c*141),PSET 
IF c=St AND DR=-1 THEN c=En+l 
IF c=En AND DR=1 THEN c=St-l 
c=c+DR 

WEND 

PUT (189,74),Fg#(F*141) , PSET 
FOR c=4 TO 6 
BUTTON c,1 

NEXT 

DimMenu 1 

BUTTON 6,0:R(0)=169:R(1) =189 : R (2 ) =187 : R (3) =291 
:BAct=6 

CALL INVERTROUNDRECT(VARPTR(R(0)),9,9) 

PlSkip2: 

RETURN 

MenuCheck: 

GET (370,15)-(469,94),Fg#(F*141) 

IF MenNo=l THEN ON MENU(l) GOSUB Opn,QuitBAS,Q 
uitSys 

MENU 

RETURN 

Opn: 

FileName$=FILES$(1,"FILM") 

GOSUB Refresh 

IF FileName$="" THEN OpSkip2 
WINDOW 2,"", (194, 96)-(294,176),3 
DimMenu 0 

SETCURSOR VARPTR(Watch(0)) 

OPEN FileNameS FOR INPUT AS #1 
INPUT#1,EF 
FOR c=l TO EF 
INPUT #l,z 

A$=INPUT$(z,1):ACT$=INPUT$(1,1) 

PICTURE(0,0),A$ 

GET (0, 0)-(99, 7 9),Fg#(c*141) 

NEXT 

CLOSE #1 :WINDOW CLOSE 2 

A$=RIGHT$(STR$(EF) ,LEN (STR$(EF))-1) 

EDIT FIELD 4,A$, (188, 260)-(220, 275) 

F=1 

OpSkip2: 

INITCURSOR 
DimMenu 1 
RETURN 

QuitBAS: 

WINDOW CLOSE l:WINDOW CLOSE 4 
END 


QuitSys: 

SYSTEM 

Refresh: 

WINDOW OUTPUT 4 :CLS 
WINDOW OUTPUT 1 

TEXTSIZE 18:TEXTFONT 0:TEXTFACE 5 
MOVETO 140,44 
PRINT"Proiettore Film MCK" 

TEXTSIZE 12 .-TEXTFONT 0: TEXTFACE 0 
MOVETO 226,230:PRINT"Velocità" 

MOVETO 226, 251 :PRINT"Ini zio" 

MOVETO 226,272:PRINT"Fine" 

LINE (183, 163)-(296, 290),,B 
CALL PENSIZE (1,1) 

CALL PENPAT(VARPTR(Pattern(8))) 

CALL PENPAT(VARPTR(Pattern(0))) 

CALL PENSIZE (3,3) 

RR (0)=70:RR(1)=186 :RR(2)=158 :RR(3)=2 94 
CALL FRAMERECT(VARPTR(RR(0))) 

LINE (183, 67)-(296,160),,B 
PUT (189,74),Fg# (F*141),PSET 
BUTTON BAct,1:BUTTON BAct,0 
CALL INVERTROUNDRECT(VARPTR(R(0)),9,9) 

RETURN 

SUB DimMenu(Menable) STATIC 
IF Menable THEN MENU 1,0,1:ELSE MENU 1,0,0 
END SUB 

Cursore orologio 

DATA 2016,2016,2016,2016,2064,4232,4232,4236,5004, 
4104,4104,2064 

DATA 2016,2016,2016,2016,2016,2016,2016,2016,4080, 
8184,8184,8184 

DATA 8184,8184,8184,4080,2016, 2016,2016, 2016,8,8 ,TT^ 
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Listati senza fatica 

Tutti i programmi di Applicando possono essere trascritti e quindi salvati su dischetto. Ma la trascri¬ 
zione è lenta e noiosa, e sbagliare fin troppo facile. Ecco perché Applicando offre, già pronti, i di¬ 
schetti con i programmi autoguidati (cioè con le istruzioni), sia per Apple II, sia per Macintosh: per ot¬ 
tenerli, è sufficiente inviarci il tagliando di pag.130 debitamente compilato. Per risparmiare, non per¬ 
dete la favolosa offerta dell'abbonamento al Disk Service e inviate subito il tagliando di pag. 129. 


Programmi 
per Apple II 

APPLICANDO 1 

AP1/I02 Profitti. In tempo reale l’analisi del 
break-even point, punto di pareggio di un’azien¬ 
da. Calendario perpetuo. Dal 1582 in poi tutto 
quello che si può sapere sui giorni passati e futu¬ 
ri. I tronchi del tesoro. Una spericolata caccia al 
tesoro a nuoto, tra le insidie di tronchi galleg¬ 
gianti. Lire 30.000. 

AP1/N03 Eli minatore di Dos. Per aumentare 
del 10% la capacità di un normale floppy disk. O- 
rologio. Per trasformare l'Apple II in un orolo- 
io con rintocchi, allarme e lancetta dei secondi, 
ronti puntare fuoco! Guardiano di un castello a- 
bbandonato, hai 25 colpi da sparare contro gli 
intrusi. Lire 30.000. 

APPLICANDO 2 

AP2/IN04 Costi chilometrici auto. Un program¬ 
ma per calcolare e confrontare i costi di qualun¬ 
que auto. Richiamafigure. Posizionare, ingrandi¬ 
re, ruotare, cambiare colore, aggiungere figure 
a quelle di una tavola Laser nello spazio. Batta¬ 
glia a colpi di laser contro asteroidi e alieni per 
difendere la torretta spaziale. Lire 30.000. 

APPLICANDO 3 

AP3/IN05 Sistema base. Un data base modula¬ 
re con tutte le caratteristiche essenziali per 
mettere ordine nei propri archivi. Etichette. E- 
tichette spiritose e bizzarre, di lavoro o di ogni 
genere, stampate nel numero desiderato. Con¬ 
tratti. Con il WPL, il linguaggio di programma¬ 
zione dell'Apple Writer, bastano cinque minuti 
per un documento di più pagine personalizzato. 
Gran catalogo. Una routine per avere il catalogo 
del dischetto su due colonne, 42 file per volta, e 
richiamarli con un tasto. Lire 30.000. 

AP3/A06 Equo canone (occorre Visicalc). In Vi¬ 
stale urvmodello che permette, a inquilini e pro¬ 
prietari, ilcalcolo dell'equo canone. Lire 25.000. 

APPLICANDO 4 

AP4/N07 Lettura sprint (versione italiana e 
versione con frasi in inglese). Un reading impro- 
ver per leggere di più a parità di tempo. Rompi* 
quindici. Il piccolo rompicapo delle quindici pedi¬ 
ne da ordinare nei sedici spazi a disposizione. Ta- 
stierino fantasma. Una routine per avere a di¬ 
sposizione un tastierino numerico anche sull'Ap¬ 
ple II. Routine di input. Due subroutine, una per i 
dati numerici, l'altra per gli alfanumerici, per il 
controllo dell'input. Lire 30.000. 

AP4/A09 Organo, violino, pianoforte (dischet¬ 


to Pascal, occorre languaae card o Apple Ile o 
Ile). Ecco come, col Pascal, si riesce a simulare i 
tre strumenti attivando l'altoparlante dell'Ap¬ 
ple da programma. Lire 30.000 

APPLICANDO 5 

AP5/N08 Investor. In tempo reale il quadro e- 
satto di come vanno i propri investimenti finan¬ 
ziari. Con cinque prospetti riepilogativi e 52 pe¬ 
riodi di quotazione, Investor è uno dei program¬ 
mi più completi in questo settore e in assoluto il 
più economico. Lire 70.000. 

AP5/N09 Agenda personale. Per ricordare ora 
per ora gli appuntamenti di un anno intero memo¬ 
rizzando fino a 15 appunti ogni giorno. Duello 
d'artiglieria. Vince chi sa calcolare meglio la velo¬ 
cità del vento, la gittate e l'elevazione della can¬ 
na Mele e freccette. Versione computerizzata 
del popolare gioco delle freccette che nulla to¬ 
glie al gusto del far centro. Ure 30.000. 

APPLICANDO 6 

AP6/N10 Obbligazioni/Bond Manager. Per ave¬ 
re un quadro completo e concreto dei rendimen¬ 
ti dei titoli a reddito fisso. PacMan/Nibbler. 
Versione in alta risoluzione del famoso videoga¬ 
me a gettone. Line finder. Letteralmente trova 
righe; questa utility permette di localizzare i 
segmenti di un programma. Lire 30.000. 

AP6/N1 1 Stress. In Pascal (occorre language 
card o Apple Ile o Ile). Per giocare, ma soprat¬ 
tutto per inventare giochi, si pone in alternati¬ 
va agli usuali videogame. Lire 55.000. 

APPLICANDO 7 

AP7/N12 Apple pittore. Si possono realizzare 
sullo schermo capolavori di pittura, ottenendo 
effetti speciali di grande efficacia. Ottovolan¬ 
te. Un tutorial per insegnare ai bambini a ricono¬ 
scere i numeri che rimbalzano sullo schermo. Di- 
skblock. Una routine che permette di evitare 
che qualche curioso possa avere libero accesso 
in programmi riservati. Archivio per Apple. Per 
avere un back-up dei programmi più importanti 
da dischetto a cassetta o viceversa. Discoteca. 
Una banca dati che tiene sotto controllo la colle¬ 
zione di LPe cassette. Aiuto. Alla fine della bat¬ 
titura di un programma, Aiuto vi dirà quanti er¬ 
rori ci sono e a quali linee. Lire 30.000. 

APPLICANDO 8 

AP8/N13 Cambiacomandi/Messaggi. Un pro¬ 
gramma che insegna come personalizzare i mes¬ 
saggi propri del Dos dell'Apple. Le Mans. Un 
gran premio di formula uno da giocare in due o 
da soli contro il computer. Appieorgano. Come 
trasformare Apple//in un organo. Lire 30.000. 

AP8/T1 4 Momento di una forza/Colpo all'asta. | 

La dimostrazione didattica del ribaltamento di I 


un corpo solido appoggiato a un piano quando 
viene applicata una forza orizzontale che supera 
il momento in senso opposto dovuto al peso. Har- 
d copy pagine in alta risoluzione. Se la stampan¬ 
te è compatibile con questo programma si pos¬ 
sono far miracoli. Lire 30.000. 

APPLICANDO 9 

AP9/N15 Fuoco fatuo. Un appassionante ad ven¬ 
ture game con un percorso intricatissimo e mille 
trabocchetti. Apple artista. Per destreggiarsi 
nella grafica ad alta risoluzione usando lo scher¬ 
mo come tavolozza e la tastiera come pennello. 
Data hello. Una semplice routine che permette 
di disporre di una clock card inizializzando i di¬ 
schetti con giorno, mese e anno. Lire 25.000. 

AP9/T16 Sistema di forze parallele. Fissando¬ 
ne l'intensità e la posizione, questo programma 
permette di visualizzare il centro di un sistema 
di forze sotto forma numerica e grafica Trasla¬ 
zione e rotazione di una figura piana. Come far 
ruotare, traslare, rimpicciolire, ingrandire sul vi¬ 
deo una figura piana. Ure 30.000. 

applicando io 

AP10/N14 Ripristino. Come ripristinare pro¬ 
grammi persi per un'accidentale istruzione di 
New o di Fp. Disk Map. Un detective del Dos 
per scoprire dove e come vengono immagazzina¬ 
ti i dati analizzando la mappa dei bit occupati. 
Autonumber. Una routine per autonumerare au¬ 
tomaticamente i programmi. Lire 30.000. 

AP10/T17 Rette nel piano cartesiano. Come in¬ 
dividuare in cinque modi diversi una coppia di 
rette in un piano cartesiano e avere visualizzate 
le equazioni relative ai piani assegnati. Statisti¬ 
ca. Come analizzare la correlazione tra due feno¬ 
meni mediante l'indice di Bravais. Ure 30.000. 

APPLICANDO 11 

AP11 /NI 8 Apple edicola. Una banca dati per a- 
vere sotto controllo un articolo, il suo numero di 
pagina, la rivista su cui è stato pubblicato. Disk 
Zap. Il programma indispensabile per il debug¬ 
ging. Messaggipersonali. Quandolapersonanon 
c'è basta lasciarle un messaggio in Apple//. 
Comparatore di programmi. Per risolvere dub¬ 
bi sulle diverse versioni dello stesso programma 
in basic. Trappòla per pochi. Un cacciatore con¬ 
tro tre animali feroci. Vince chi riesce a intrap¬ 
polare senza essere intrappolato. Lire 30.000. 

API ITTI 9 Espressioni. Come risolvere un picco¬ 
lo dramma familiare con l’aiuto di un elaboratore 
personale. Lire 25.000. 

APPLICANDO 12-13 

AP12/N20 Bridge. Un programma in altissima 
risoluzione grafica che permette di imparare il 
bridge o di giocarlo contro il computer. Microcal- 
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c. Un fog'io elettronico di calcolo che mette a di¬ 
sposizione 20 righe per 20 colonne, per un tota¬ 
le di 400 caselle da riempire come si vuole. Ap¬ 
plesoft Line Editor. Una potente utility che per¬ 
mette l'editing dei programmi in Applesoft e 
aggiunge all'Apple un più ampio controllo del 
cursore. Lire 30.000. 

API 2/A21 Budget (occorre Appleworks). Un 
prospetto che con l'inserimento di dati mensili 
e di medie preventive calcola automaticamente 
le medie consultive e i relativi saldi mensili e an¬ 
nui. Lire 20.000. 

API 2/A22 Budget (occorre Visicalc). Un pro¬ 
spetto che con ^inserimento di dati mensili e di 
medie preventive calcola le medie consuntive e i 
relativi saldi mensili e annui. Lire 20.000. 

API 2/T25 Animazione di una rotazione tridi¬ 
mensionale. Unesempiodicomeunarotazionetri- 
dimensionale permette di rappresentare gli og¬ 
getti proprio come li vediamo. Trasformazione 
da File a Data. Una utility per risolvere il proble¬ 
ma di aggiungere a un programma delle istruzio¬ 
ni DATA ricavate da un altro file. Lire 25.000. 

APPLICANDO 14 

API4/N26 Golf. Un programma in altissima ri¬ 
soluzione grafica che permette di disegnare il 
proprio percorso di golf per poi giocarci a pia¬ 
cimento. Autopiù. Per non dimenticare più gli ap¬ 
puntamenti fissi dedicati alla manutenzione del¬ 
la vostra automobile. Ure 20.000. 

AP14/N27 Applebaby. Tre giochi didattici: im¬ 
parare a contare in età prescolastica, ripassare 
le tabelline, esercitarsi nell'ortografia. Lire 
25.000. 

API 4/A28 Rimborso spese (occorre Apple¬ 
works). Un prospetto che permette di prepara¬ 
re le note spese automaticamente. Lire 20.000. 

API4/A29 Rimborso spese (occorre Visicalc). 
Un prospetto che permette di preparare le vo¬ 
stre note spese automaticamente. Lire 20.000. 

AP14/T30 Frutteti. Un aiuto a risolvere uno 
dei più classici problemi di estimo. Instant Po¬ 
ster. Scrivete la frase che volete, dalla stampan¬ 
te esce un poster gigante. Lire 20.000. 

APPLICANDO 15 

API 5/N31 Sintetizzatore di suoni. Dotate i vo¬ 
stri lavori di una colonna sonora eccezionale: dal 
canto dell'uccellino alla mitragliatrice, dal treno 
in corsa all'aereo. Volano. Un gioco in alta risolu¬ 
zione per due sfidanti. Illustratore. Un program¬ 
ma di grafica che permette di realizzare ottimi 
disegni anche a chi non è molto dotato. Auto¬ 
schermo. Crea in automatico menù altamente 
professionali (come quelli di AppleWorks) da 
inserire nei programmi. Lire 30.000. 

AP15/A32 Computer cuisine. Un ricettario com¬ 
puterizzato sul quale memorizzare ingredienti e 
ricette a centinaia. Con possibilità di stampa 
delle singole ricette e con un menù completo dei 
migliori piatti creati da Gualtiero Marchesi. Oc¬ 
corre scheda 80 colonne. Lire 20.000. 

AP15/T33 Euclide. Il massimo comune divisore 
e il minimo comune multiplo in un programma che 
ne permette l'immediata comprensione. Isomeri. 
Fa parte del più ampio progetto americano Se- | 
raphim, per lo studio della chimica. Lire 20.000. 1 


APPLICANDO 16 

API 6/N34 Dieta personalizzata. Un pratico si¬ 
stema di data base nutrizionale, con il quale è 
possibile personalizzare, a seconda della pro¬ 
pria costituzione fisica e delle abitudini alimen¬ 
tari, una dieta bilanciata. Il dischetto contiene 
un file dati di 400 cibi, la cui composizione è ana¬ 
lizzata in calorie, proteine, grassi, vitamine e co¬ 
lesterolo. Lire 30.000. 

API 6/N35 Designer. Il concetto dei potenti e 
costosi programmi di CAD/CAM alla portata 
dell'Apple//, per fare del computer uno stru¬ 
mento semiprofessionale per disegnare. Il gioco 
dei pompieri. E’scoppiato un incendio, e voi sie¬ 
te un pompiere che deve salvare il maggior nume¬ 
ro di persone prima che muoiano soffocate tra 
le fiamme. Per listare bene in vista. Se nel 
programmare avete preferito la compattezza 
alla chiarezza, avete bisogno di questo program¬ 
ma. Timer. Un fedele e preciso contasecondi 
che avverte del passare del tempo, e al momen¬ 
to giusto... Lire 30.000. 

API 6/N36 Cento One-liner. Utility, routines, 
dimostrativi di grafica e di suoni, e perfino gio¬ 
chi. Cento programmi su un dischetto, tutti 
scritti in una sola linea di Basic. Da usare così co¬ 
me sono, da studiare come esempi di sintesi, o 
da trasferire nei programmi. Lire 30.000. 

API 6/N37 Rubrica telefonica (occorre Apple¬ 
works). Un’agenda telefonica che individua in 
temporealequalunquenumero memorizzato, che 
stampa le etichette per spedire gli auguri, e 
stampa elenchi su carta da distribuire aggiorna¬ 
ti ogni mese ai collaboratori. Lire 15.000. 

APPLICANDO 17 

API 7/N38 Strade d'America. Pianifica un qua¬ 
lunque itinerario stradale americano tra ben 
171 città diverse, fornendo le sigle delle strade 
da percorrere, l’elenco delle citta intermedie e i 
calcoli della distanza in miglia dei tratti interme¬ 
di e totali. Uragano. Su una piccola città indife¬ 
sa una tempesta si abbatte implacabile: distrug¬ 
gerà tutto. A meno che... Gioco ad altissima riso¬ 
luzione grafica. Ure 30.000. 

API 7/N39 Regress. Ideale per manipolare dati 
con funzioni statistiche, con la possibilità di 
chiedere previsioni in base all’andamento della 
regressione sui dati inseriti. Calcolatrice RPN. 
Con questo programma l'Apple diventa una so¬ 
fisticata calcolatrice che impiega per l'input la 
notazione polacca inversa, con una catasta ope¬ 
rativa di quattro registri. Sparate a vista. Sie¬ 
te appostati contro un muro e comandate un po¬ 
tente cannone. Dal cielo fluttuano oggetti che 
dovete colpire. Lire 30.000. 

API 7/A40 I conti del negozio (occorre Apple¬ 
works). Questo modello di spreadsheet è utilis¬ 
simo per seguire l’andamento giornaliero e men¬ 
sile di un negozio. Per ogni movimento di cassa 
è possibile memorizzare causale e tipo di paga¬ 
mento. Il computer calcola i totali per ogni voce 
e indica qual è stato il movimento di cassa della 
giornata, tenendo conto degli ordini e dei saldi, 
elabora i dati suddivisi per categoria merceolo¬ 
giche e calcola le percentuali di ripartizione de¬ 
gli utili su ogni articolo. Lire 50.000. 

APPLICANDO 18 

API 8/N41 Trivia. Una versione per Apple II, 
del gioco Trivial Pursuit, però personalizzabile 


e quindi utile anche per studiare o ripassare. 
Bioritmi. Per seguire l'andamento dei propri 
bioritmi: tutti e tre i cicli, mese per mese. Oc¬ 
chio ai consumi. Invece di annotare la percorren¬ 
za in chilometri e i litri di carburante consumato 
e poi fare i relativi calcoli. Lire 30.000. 

API 8/N42 Regolatore del bip. Un programma 
per regolare a piacimento il volume del beep del¬ 
l'Apple //e. Comparatore di grafici. Ecco come 
comparare le curve disegnate da funzioni diver¬ 
se. Impaginatore di messaggi. Scritte perfetta¬ 
mente centrate sia sul video cne sulla stampan¬ 
te, senza fatica. Utility per ProDOS. Prefix, 
Subdirectory, Pathname? Sono termini che bi¬ 
sogna conoscere per programmare in ProDOS. 

Questa utility aiuterà a capire e imparare con 
facilità Lire 30.000. 

APPLICANDO 19 

API9/N43 Oracolo. Cambiare lavoro? Conclu¬ 
dere un affare? Il primo programma di tipo de- 
cision maker disponibile in Italia. Digger. A dif¬ 
ferenza dei giochi di labirinto tradizionali, Dig¬ 
ger chiede di risolvere dei rompicapo spaziali, e 
la prontezza di riflessi non è tra i fattori del 
gioco.Claustrofobia. Gioco in alta risoluzione, pa¬ 
cifista nei risultati, ma non nei metodi, mette al¬ 
la prova l'abilità del giocatore. Gestione punta¬ 
tori. Volete caricare in memoria un programma 
in Applesoft al di sopra di questo o quel codice 
in linguaggio macchina? Magari aggirando lame- 
moria di schermo in alta risoluzione? O addirit¬ 
tura in cima a un codice ormai servito al suo sco¬ 
po in un programma che sta girando? Con que¬ 
sto programma, tutto è possibile. Grafica in 
doppia risoluzione. Tre routine in Basic e una in 
Assembler che vi pernotteranno di creare pro- 
rammi in doppia alta risoluzione con 16 colori. 
Sei soluzioni. Il programma, nell'ambito dei Pro¬ 
getto Seraphim, è un test che presenta allo stu¬ 
dente quantità limitate di un certo numero di so¬ 
luzioni in provette numerate.Conoscendo le so¬ 
stanze si deve identificare il contenuto di ciascu¬ 
na provetta. Lire 30.000. 

APPLICANDO 20 

AP20/N44 Salute. Vaccinazioni, malattie, anali¬ 
si, terapie e soprattutto costi a non finire. Co¬ 
me ricordare tutto, registrare e listare le spe¬ 
se mediche di tutti i familiari? E al momento di 
pagare le tasse... Variabili. Con questa utility in 
Applesoft potrete visualizzare i valori delle 
variabili per un'efficace individuazione degli 
errori di un programma. Grafica. Che cosa sono 
le figure a blocco? Perché è importante fame 
la conoscenza? Per chi possiede l'Apple //c o il 
//e con scheda 80 colonne continua il viaggio nel 
mondo dell'Hi-Res Simulazione di un equilibrio. 
Un software didattico del progetto Seraphim 
che crea la simulazione al computer di un proble¬ 
ma di equilibrio. Lire 30.000. 

AP20/N45 Oroscopo. Scientificamente fonda¬ 
to, permette la creazione di una carta del cielo 
natale che nulla invidia ai grafici tracciati dai 
professionisti. E le tabelle con latitudini, longitu¬ 
dini, fusi orari eccetera? Ci sono, ci sono... Voce. 
Ora non gli manca la parola: con questa routine 
in linguaggio macchina Apple// può pronunciare 
quello che volete. L.30.000. 

APPLICANDO 21 

AP21/N46 Architetto. Un programma per stu¬ 
diare sul video la disposizione di mobili, porte, fi- 
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nestore e muri, spostandoli, modificandone le di¬ 
mensioni, duplicandoli, facendoli ruotare.E poi, 
stampando il tutto. Autocorsa. A tutta birra 
lungo una pista con vere e proprie voragini e 
massi da schivare. A ogni videata cambia la diffi¬ 
coltà del percorso. By-pass per il dump. Una 
scorciatoia per accedere alla routine di stampa, 
e solo a quella, senza bisogno di attraversare 
prima tutto il programma: basta by-passarlo! 
Cursore. Per lo spostamento del cursore Ap¬ 
ple// usa gli ingombranti comandi HTAB e 
VTAB; è invece possibile utilizzare speciali ca¬ 
ratteri di controllo nelle stringhe stampate, 
grazie a questo programma in codice macchina. 
Grafica. Un passo avanti verso la perfetta pa¬ 
dronanza della grafica in altissima risoluzione: 
come animare sullo schermo le figure a blocchi e 
come dare l’impressione che scorrano dietro un 
altro oggetto. Curve di titolazione. Interessa 
gli studenti (e gli insegnanti) di chimica questo 
programma del Progetto Seraphim: inserite le 
debite variabili, e assegnato il nome all'acido che 
si sta studiando, traccia sul piano cartesiano la 
relativa curva di titolazione. Ure 30.000. 

APPLICANDO 22 

AP22/N47 Impegni. Polizze che scadono, 
appuntamenti, anniversari e compleanni. Per ave¬ 
re sempre sotto gli occhi un promemoria elettro¬ 
nico, ecco un calendario intelligente. Azzardo. Il 
computer diventa mazziere di Blackjack, in una 
simulazione che ricalca il funzionamento delle 
slot machine di Las Vegas. Effetti speciali, m 
Consente lo scorrimento orizzontale di una 
stringa, alla velocità voluta, per vivacizzare un 
menu, un titolo. Calendario. Ecco un calendario 
perpetuo, perfetto, veloce e sempre pronto. 
Grafica. Creare intere immagini e figure a bloc¬ 
co sullo schermo Hi-Res, e poi animarle. Chimi¬ 
ca. Il famoso numero di Avogadro e il concetto 
quantitativo di mole: la visualizzazione aiuta a 
spiegarli e ad apprenderli meglio. Lire 30.000. 

APPLICANDO 23 

AP23/N48 Obelisk. Un game spaziale, alla cac¬ 
cia di obelischi da distruggere. Programmare 
l'Applemouse. Come programmare sull’Apple in 
modo da utilizzare il mouse? In Applesoft o in 
Assembler, ecco un aiuto prezioso per la pro¬ 
grammazione e l'utilizzo oeH'Applemouse. Più 
che diapositive. Per realizzare presentazioni 
con il computer che siano qualcosa di più di un 
continuo scorrere di diapositive: l'effetto “so- 
lid state”! Grafica. Programma dedicato alla 
doppia alta risoluzione: scorrimento orizzontale 
di scritte e figure. Lire 30.000. 

AP23/A49 Trasferimento da Apple a Mac. Un 

Trasferire testi dall'Apple //e e //c al Macinto¬ 
sh è ora possibile e, quel che più conta, semplice 
e ultrasicuro. La confezione com prende un disco 
da 3"1 12 e uno da 5” 1 /4. Lire 50.000. 

AP23/N50 Grafici 3D. Un programma che con¬ 
sente la realizzazione di grafici a tre dimensioni 
senza linee nascoste. Quale elemento? Un trivia 
di chimica, per ripassare giocando i nomi e le ca¬ 
ratteristiche di tutti gli elementi della tavola 
chimica. Lire 20.000. 

APPLICANDO 24 

AP24/N51 Executive Card File. Uno schedario 
eccezionale per Applell. E' strutturato in modo 
che le schede possano essere riposte in dieci 
raccoglitori: un’infinità di dati con la massima 
velocità di reperimento. Apple Maestro. Tutti 


compositori, con questo programma che insegna 
a creare musica in modo professionale, ma non 
inaccessibile ai profani. Lire 35.000. 

AP24/N52 Dump 80 colonne. Un programma 
per ottenere la stampa della pagina schermo a 
ottanta colonne: proprio quello che finora non 
avreste potuto chiedere al vostro Apple. Date 
and time. Senza più dover ricorrere a costose 
schede aggiuntive, potete inserire nel vostro 
computer un calendario e, soprattutto, un 
orologio. Grafica. Con l'aggiunta delle routine 
per lo scorrimento verticale il mondo della gra¬ 
fica in doppia alta risoluzione non ha più 
difficoltà né segreti. Lire 30.000. 

AP24/N53 Prospettiva 3D. Questo program¬ 
ma è il seguito naturale di quello contenuto nel 
disco AP23/N50: come disegnare intere pro¬ 
spettive urbane, senza che il computer mostri i 
lati e le facce che devono rimanere nascosti. Te¬ 
st scolastici. Come crearsi un trivia "aperto”, 
cioè non confinato a una sola materia e aperto a 
ogni intervento. Un modo nuovo e intelligente 
per ripassare (o giocare) L. 20.000. 

AP24/A55 Utility Dos 3.3. Questo dischetto 
consente a tutti coloro che hanno acquistato un 
Apple// dopo il maggio 1984 di avere a disposi¬ 
zione il sistema operativo Dos 3.3 indispensabi¬ 
le per ricopiare alcuni programmi presentati 
da Applicando. Insieme al sistema operativo ven¬ 
gono fornite quattro interessanti utility per la 
gestione dei file Dos. Il dischetto contiene tutte 
le informazioni necessarie. Lire 25.000. 

APPLICANDO 25 

AP25/N56 Chart Manager. Un programma pro¬ 
fessionale per la gestione dei dati, aziendali o fa¬ 
miliari: ordina, calcola, modifica e poi traccia il 
grafico prescelto, a curve, a barre o a torta. 
Grafica. Quale loaica è preposta all'alta risolu¬ 
zione nell'Apple? Queste routine in LM consento¬ 
no un buon approccio al problema attraverso la 
gestione delle figure a blocchi. Lire 35.000. 

AP25/N57 Apple Checker. Un vero amico per 
chi copia da sé i programmi: controlla se sono 
stati commessi errori di battitura. Buffer di 
stampa. Spooler utilizza la scheda language car- 
d nell'Apple 64 per "parcheggiare” i dati; cosi 
mentre stampate potete continuare a lavorare 
sullo schermo del computer. Cinetica. Un interes¬ 
sante esperimento: analizzate la variazione di ve¬ 
locità in funzione delle concentrazioni dei reatti¬ 
vi e della temperatura L. 35.000. 

APPLICANDO 26 

AP26/N59 Ants. Un gioco ai confini della real¬ 
tà, terrificante e divertente: gigantesche, spun¬ 
tano dal vostro giardino delle omicide formiche 
mutanti. File name mover. All'inizio l'Hello sta 
scritto al primo posto nel Catalog, ma poi si spo¬ 
sta... Per fare un po' di ordine nei nomi dei file 
questa utility è indispensabile. Sistemi di equa¬ 
zioni lineari. Molti sono quasi impossibili da risol¬ 
vere senza computer, per la loro interminabile 
complessità. Questo programma può affronta¬ 
re fino a 70 equazioni, con fino a 70 variabili. E 
naturalmente stamparle. Lire 35.000. 

AP26/A60 Irpef (occorre VisiCalc). Per compi¬ 
lare più in fretta la dichiarazione, e tenersi ag¬ 
giornati con le aliquote in corso, con la potenza 
del foglio elettronico. Lire 25.000. 

AP26/A61 Irpef (occorre Apple Works). Lo 


stesso del precedente, ma in versione 
AppleWorks. Lire 25.000. 

AP26/N64 Certificatore di dischetti. Aprire u- 
na seconda tacca nel dischetto per sfruttare an¬ 
che la memoria della faccia posteriore? Conque¬ 
sto programma lo si può fare senza timori: con¬ 
trolla tutte le tracce e segna come già utilizzati 
i settori eventualmente difettosi. Grafica. L'ani¬ 
mazione di figure a blocchi si può gestire in più 
modi; ecco alcune routine chiave. Lire 25.000. 

AP26/A65 II dominio di Meandro. Finalmente un 
adventure tutto italiano, che però non ha nulla 
da invidiare ai professionali d'importazione. Al¬ 
la ricerca del Grande Segreto, nascosto oltre lo 
specchio e dentro la fantasia. Lire 35.000. 

APPLICANDO 27 

AP27/N66 Chitarra. Un maestro ti insegna gli 
accordi, mostrando sul video in bassa risoluzio¬ 
ne chiarissime istruzioni grafiche per la diteg¬ 
giatura; una speciale routine, poi, controlla gli 
errori commessi. Crono. Relegato nel Tartaro al¬ 
l'inizio dei tempi da Zeus, Crono ne emerge oggi 
e sferra un attacco mortale per il potere univer¬ 
sale... Armati del fulmine divino, dovete sconfig¬ 
gerlo. Lire 35.000. 

AP27/N67 Reminder. Per tenere sotto control¬ 
lo la gestione domestica, ecco un programma 
multiforme: è un gestore prestiti, un custode 
delle scorte freeezer, un programmatore per 
l'orto, un'agenda delle incombenze e dei lavori... 
Grafica. Tutte le immagini grafiche, provenienti 
da qualsiasi programma, possono divenire tavo¬ 
le di figure a blocco. Con questo programma, 
non occorre nemmeno conoscerne le coordinate. 
Postmaster. Può estire cento indirizzi, ordinar¬ 
li in ordine alfabetico e modificarli , ma soprat¬ 
tutto è un formidabile stampaetichette, per o- 
gni stampante. Appletrig. Seno e coseno, tan¬ 
gente e cotangente, secante e cosecante: tutte 
le funzioni trigonometriche. L 35.000. 

APPLICANDO 28 

AP28/N74 Supershopper. Un programma ver¬ 
satile e intelligente che pianifica gli aoquisti per 
una gestione ottimale, senza sprechi né amare 
sorprese, del frigorifero e delle scorte free¬ 
zer. Planetario. La volta celeste sullo schermo, 
con i movimenti e le magnitudini delle stelle, ba¬ 
sta impostare l’ora e le coordinate del luogo da 
cui si vuole osservare la notte. Lire 35.000. 

AP28/N75 Millenote. Una routine per la crea¬ 
zione di musica, completa di staccato, corone, ri¬ 
tardi e pause, per personalizzare giochi e pro¬ 
grammi con simpatici effetti sonori. Scatola ne¬ 
ra. Un classico gioco di deduzione nell’era atomi¬ 
ca: dal grado di riflessione del raggio lanciato 
dentro la scatola bisogna indovinare le posizioni 
degli atomi contenuti. Text file. Ottima routine 
per la gestione dei listati come file di testo; ren¬ 
de più veloci e agevoli le correzioni. Grafica. L'a¬ 
nimazione delle figure a blocco con effetti spe¬ 
ciali. Lire 35.000. 

AP28/A76 Gin. E' il gioco del momento, e ha un 
solo difetto: calcolare il punteggio è laboriosissi¬ 
mo. Nessun problema, però, se si usaquesto pro¬ 
gramma contapunti. Lire 20.000. 

APPLICANDO 29 

AP29/N79 Movie construction set. Realizzare 
veri e propri cartoni animati, e guardarli poi 
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Il dominio di Meandro - AP26/A65 

Un adventure game tutto italiano migliore perfino, dei più 
famosi adventure d'importazione. Alla ricerca del grande 
segreto, nascosto oltre lo specchio e dentro la fantasia. 


scorrere sul video è possibile, con questo 
programma ricco, ma semplice da usare. Win- 
dow magic. Come su Macintosh, i menù del II si 
possono gestire con finestre e icone. Grafica. 
Lo schermo si anima di effetti magici: lo scor¬ 
rimento animato diventa realtà. L. 35.000. 

AP29/N80 Special Utilities. Due utility, in ac¬ 
coppiata vincente: Supercharger e Crunch- 
Decrunch. La prima comprime in memoria le im¬ 
magini in Hi-Res, la seconda estende il po¬ 
tenziale dell'Applesoft in DOS 3.3. L 35.000. 

APPLICANDO 30 

AP30/A84 Rubrica. Per ottimizzare l'uso del 
telefono, ecco una rubrica elettronica di altissi¬ 
mo livello, per gestire e aggiornare tutti inume- 
ri che vi possono servire. Attenzione: la rubrica 
è capace anche di far comporre il numero, se ab¬ 
binata all'apposito combin a tore t e lef on ico . Or¬ 
to. Un programma in Pascal per studenti e pro¬ 
fessionisti: corregge automaticamente, grazie a 
due vocabolari già creati in parte, gli errori di 
ortografia in testi e listati. Serve Pascal 1.2 e 
versioni successive. Lire 35.000. 

AP30/A85 Combinatore telefonico. E' un hard¬ 
ware indispensabile per sfruttare al massimo le 
caratteristiche del programma Agenda: 
compone automaticamente il numero telefonico. 
Lire 90.000. (Non ordinabile in abbonamento 
ma solo singolarmente). 

AP30/N86 Ampergo. Questa utility potentissi¬ 
ma, basata sull’utilizzo del comando ampersand 
(&], estende il potenziale dell'Applesoft in 
DOS 3.3. Pinguino. Dolce e appassionante, la lot¬ 
ta di Sammy il pinguino che per salvare la sua 
isoletta scaglia blocchi di ghiaccio. Turile Basic. 
La tartaruga, il tipico cursore del Logo, dà il no¬ 
me a questo programma che "insegna" al Basic 
le parola chiave per programmare la grafica. 
Grafica. Sullo schermo dell'alta risoluzione è 
possibile inserire caratteri di testo, e in qualun¬ 
que posizione. L. 35.000. 

APPLICANDO 31 

AP31/N90 Sci. Alla vigilia delle settimane bian¬ 
che, meglio verificare la propria efficienza fisi¬ 
ca con questo test. Libreria di subroutine. Per 
tenere tutte assieme quelle che servono di più. 
Buon compleanno. Un allegro coro di "Tanti au¬ 
guri" guidato dall'Apple: la musica la suona lui. 
Navigator. La parte più importante di un lista¬ 
to è la documentazione: ecco listati formattati e 
diagrammi di flusso in un baleno. Grafica. Scor¬ 
re il testo sullo schermo Hi-Res. Lire 35.000. 

APPLICANDO 32 

AP32/N94 Ram Disk. Un simulatore di disk dri¬ 
ve con 170 settori di memoria RAM, per dimez¬ 
zare i tempi di caricamento. Per IIC e Ile scheda 
80 colonne. DOS-ProDOS Doubleboot. Un pon¬ 
te tra i due sistemi operativi, ora disponibili con¬ 
temporaneamente Lire 35.000. 

AP32/N95 Automatic Function Plotter. Dia¬ 
grammi di funzione in Hi-Res, con scala auto¬ 


matica, sovrapposizione di tracciati, apposi¬ 
zione di diciture. Compass Quiz. Un educational 
per bambini di otto anni circa, per insegnar loro 
l'uso della bussola. Ure 35.000. 

AP32/A96 Xenar. Un adventure tutto italiano, 
ambientato in America latina, alla ricerca dei se¬ 
greti di un popolo scomparso. Lire 25.000 

APPLICANDO 33 

AP33/N99 Apple Banker, per la gestione 
finanziaria domestica Duetto. Inserite nei 
vostri programmi il suono a due voci. I 

□ rammi di papà. Quattro programmi in 
3Soft per giocare, disegnare e scrivere 
con i figli. L 35.000. 

AP33/N100 List master. Questa eccellente rou¬ 
tine stampa un listato formattato del pro¬ 
gramma in Applesoft evidenziandone la strut¬ 
tura. Timer. Utility per usare i comandi che 
tracciano linee sulla pagina testo. L. 30.000. 

APPLICANDO 34 

AP34/N102 Arcade sound editor. Generatore 
di suoni a due tonalità per i vostri giochi. Iris. 
Realizza un effetto di dissolvenza a iride tra 
due immagini in Hi-Res. L 35.000. 

AP34/N103 Tre utility: Subroutine Master 

(crea una libreria di subroutine in Applesoft), 
Copy per ProDOS ( copia i file senza disturba¬ 
re il programma in Basic) e Disk Lock per pro¬ 
teggere l'intero dischetto. Crosswind. Simula¬ 
zione del gioco del football americano con tutti i 
calcoli della direzione del vento. L. 35.000. 

AP34/A104 Conto corrente. Per la gestione 
completa del vostro conto corrente bancario 
(occorre Appleworks). Portfolio. Un'ap¬ 
plicazione AppleWorks per giocare a Portfolio 
con Repubblica e Applicando. L 25.000. 

APPLICANDO 35 

AP35/N107 Disk librarian. Un bibliotecario 
per la catalogazione e la gestione di tutti i di¬ 
schetti: in ProDos, in DOS 3.3 e in Pascal. 
Screen creator. Per la creazione automatica di 
videate, risparmia la noiosa inserzione del codi¬ 
ce. Mr.Ed. Questo compatto editor di program¬ 
mi rende più che mai facile l’introduzione dei pro¬ 
grammi in Basic. Comprende l'autonumerazione 
e l'editing delle linee, con funzioni di inserimen¬ 
to, eliminazione e tabulazione. L. 35.000. 

AP35/A1 08 Refertazioni Laboratori Analisi. 

Per la gestione automatica a video e su stam¬ 
pante delle cartelle cliniche, delle analisi e dei re¬ 
ferti. L. 20.000. 

APPLICANDO 36 

AP36/N110 Meteo. Per dilettanti e professioni¬ 
sti, un programma per ordinare i dati e fare le 
previsioni del tempo. Super sort. Utility ad alta 
velocità per ordinare le matrici. Cross Referen- 
ce. Costanti, variabili, riferimenti alle linee: tut¬ 
ti ben ordinati in pratici prospetti.!. 35.000. 


FreeSoftware 
per Apple II 

I seguenti dischetti sono disponibili a lire 
25.000 se li si ordina uno per volta, a lire 
75.000 se se ne ordinano cinque (praticamente 
15.000 lire l'uno), a lire 90.000 se se ne 
ordinano dieci (quindi 9.000 lire l'uno) e a lire 
160.000 se li si ordina tutti (e cioè 8.000 lire 
l'uno). Questi prezzi si intendono comprensivi di 
Iva e spedizione. Utilizzare il tagliando del Disk 
Service, specificando il codice. 

AP01/FSII. 30 proposte di Hello per lo 
startup dei dischetti e 10 soluzioni-per i 
menù dei programmi. In Basic, Integer e 
linguaggio macchina a scelta tra startup 
grafici, di utilità e personalizzati. 

APQ2/FSII. Oltre 40 programmi di ma¬ 
tematica e statistica: convertitore di mi¬ 
sure, equazioni, metodo di Fourier, seno 
e coseno, inversioni di matrice, n fatto¬ 
riale, esercizi e dimostrazioni varie di 
statistica e plottaggio. 

AP03/FSII. The Data Base. E' il data¬ 
base d'immediato utilizzo per le più sem¬ 
plici esigenze. 

AP04/FSH. Bank'n, un programma che 
trasforma l'Apple II in un fedele banchie¬ 
re che tiene conto di tutte le operazioni 
effettuate sul vostro conto corrente. 

AP05/FSII. 20 programmi grafici: alfa¬ 
beto, animazione e suono, immagini digi¬ 
talizzate, vacanze, pagine grafiche 1 e 
2, subroutine Hi-res, poster di Snoopy. 

AP06/FSII. Oltre 40 fra dimostrativi e 
utility grafiche: 10 funzioni geometriche, 
checker-board per il colore, Hi-res 
dump su Epson, 3-D, Inveii Hi-Res pa¬ 
ge, shape table Assembler, Spirograph, 
animazione in alta risoluzione. 

AP07/FSII. Oltre 20 programmi e utility 
musicali: Apple Music Maker, Apple Or- 
gan, Happy Birthday, Sxotic sounds, Si- 
ren, Song writer, utility per riconoscere i 
numeri dei toni e la durata degli stessi ol¬ 
tre a numerosi dimostrativi con musiche 
famose. 

AP08/FSII. Comunicazioni, un menù di 
10 voci per comunicare meglio con l'Ap¬ 
ple II: Pickup, Autodial, Basic extractor, 
Sourceon, Dow Jones converter, Micro¬ 
modem flags, Alarm, Selftest II, Tran¬ 
sfer, Store & Forward. 

AP09/FSII. 14 programmi richiamabili 
da un menù dedicati al mondo della fisi¬ 
ca: Vector resolution, Vector addition 1 
e 2, Dot e cross products in m/d form, 
Vector/scalar quiz, Circular motion, Kine- 
matics e altro ancora. 
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API O/FSII. Dalla serie di adventure 
del fantastico mondo di Eamon, un gio¬ 
co di avventura che vi porterà nella ta¬ 
na del minotauro. 

API 1/FSII. 20 passatempi per un relax 
al computer: Computer Ralph, Analyst 
computer, Decision maker, Oroscopo, 
Poeta, Ad lib 1, Calcolo delle probabili¬ 
tà, Calendario perpetuo, Mirrar print i- 
mage e altro ancora. 

API 2/FSII. Satelliti, costellazioni, piane¬ 
ti, conversioni astronomiche: 10 pro¬ 
grammi per sapere tutto sull’astronomia, 
segni zodiacali compresi. 

AP13/FSII. Quiz, messaggi musicali, sto¬ 
ria in alta risoluzione grafica, calendari, 
festività: tutto per un valido e originale 
insegnamento della religione cristiana. 

API 4/FSIL15 programmi di utilità gene¬ 
rale: Dieta, Contacalorie, Ricette, Biorit¬ 
mi, Test di longevità, Reader improver, 
Grandapple clock, Calendario, databa¬ 
se per anniversari e compleanni, e un 
word processor. 

API 5/FSII. 15 giochi in stile videoga¬ 
me: Volleyball, Snake, 3-D tic tac toe, 
Crypto, Orbit, Solitaire, Del mar, Craps, 
Apple capture e altri ancora. 

AP16/FSII. Oltre 20 giochi dei quali la 
maggior parte di simulazioni e di strate¬ 
gia: Football americano, French military 
game, Xombat, World maze war, Golf, 
Horse race, Flockey, Ping pong, Gold mi¬ 
ne, Kingdom, Black jack, Survive e altri 
ancora. 

API 7/FSIL Oltre 20 utility con un cata- 
log un po' particolare: per ogni file vie¬ 
ne descritta la funzione del programma 
oppure se è semplicemente un file usato 
come routine. Fra gli altri: Disk arran- 
ger, Disk check, Disk map, Disk scan, Di¬ 
sk cat, Catalog management, Krunch, 
Fastboot, Undelete. 

API 8/FSII. Oltre 20 utility: Map a file, 
Post editor, Bootleg assembler, Copy 
single drive, Disassembler machines co¬ 
de, Disk quick e tante altre. 

API 9/FSII. Education. Una decina di 
programmi didattici di matematica e arit¬ 
metica. 

AP20/FSII. Business. Strumenti e pro¬ 
grammi per imparare le operazione di 
borsa e per gestire il portafoglio titoli. 

APTOT/FSII. Utilizzate questa sigla 
per ordinare tutti e 20 i dischi di Free- 
Software al prezzo particolare di 160 mi¬ 
la lire (8.000 lire a dischetto). 


FreeSoftware 
per Macintosh 

I seguenti dischetti sono disponibili a lire 
30.000 se ordinati uno per volta. A lire 
75.000 per cinque dischetti (praticamen¬ 
te 15.000 l'uno). E a lire 120.000 per do¬ 
dici (praticamente 10.000 lire l'uno). 
Questi prezzi si intendono Iva e spedizio¬ 
ne comprese. Utilizzare il tagliando del 
DiskService, specificando il codice. 

Prima serie: 

APFS/A01. 22 programmi e documenti: 
stampa cataloghi DiskCat, programma 
di comunicazioni FreeTerm 1.8, accesso¬ 
ri-mela 20DAs e Other... 1.6b,impac- 
chettatore di programmi Packlt II, gioco 
del biliardo Billiard Parlour, e, utilissimi 
per l'hard disk, HFS Open e HFS 
Search. E: MacWait, Binhex 5.0, Chan- 
geApp, WayStation1.9b, Wator, Pong, 
Curve, Muncn, Fractals, Aquarium. 

APFS/A02. 19 programmi e documenti: 
programma di comunicazioni Red Ryder 
9.0, installatore di tasti funzione FKey, 
Maze 3D, Tree e altri ancora. 

APFS/A03. 22 programmi e documenti: 
generatore di icone Iconmaker, Utilities 
Fedit 3.05, MWRecover, MacWrite Re- 
scuer 1.2, Fatdiskmaker, Drawpaint 1.0, 
MacRepair e ReadWrit, codificatore- 
decodificatore di file ConCode. Inoltre: 
DAs SetSound&StuffClip, 2.0 macsam- 
ler, StringArt, Snow, Julia, Orion vl.0, 
in/Graphics, Munch, PepsiCaps, Pram. 

APFS/A04. 35 programmi e documenti 
fra cui il celebre psicoanalizzatore Eli- 
za, Flashcard, Drill 1.52. Inoltre: Make- 
Paint vi.1, Slide Show, SelectPaint, Spli- 
ne Demo, Rays, StarMap, Stars, Pascal 
Runtime, Composers. 

APFS/AC5. 14 programmi e documenti. 
In particolare giochi comeWave 15, In¬ 
vadere, JuggTer. Inoltre: DataFlow, 
Worm Stat, EngePs Enigma. 

APFS/A06. Occorre FileVision. 32 do¬ 
cumenti di FileVision esplicativi. 

APFS/A07. Occorre Excel-Multiplan. 
32 esplicativi di Excel e Multiplani. 

APFS/A08. 10 programmi e documenti, 
i giochi Reversi, Hangman, e MouseBall. 
Inoltre: Concentration e Smooth Voice. 

APFS/A09. 31 programmi e documenti 
contenenti soprattutto caratteri (Fonts): 
Bubbles 14, 24, Hollywood Thin 24, Ran- 
gers 18, Lineai 18, Music Fonts, Raven¬ 


na 12, 24, newer keykaps, FontDisplay, 
FontDisplay.doc, Andover, About (con, 
Icon, Taliesin, Music2, Thin, Small- 
9/10/18/20, Floor Plan-9/24, Paint 18, 
Toyland 1/2 - 36, Tovland 1, 2, Demo¬ 
graphics 36, Music, States, Calligraphy 
12, 24, 18, 36, Candy 12, Centura, Far¬ 
go 48, Houston 36, Ultra 24, Cava- 
naugh 18, 36, Symbol-12. 

APFS/A10. 25 programmi con Fonts: 
Salamis, Sparta, OldChurch Slavonic, 
Greek.D, Moscow-24, Austin Math Font 
Docs, newer keykaps, FontDisplay, Ba- 
bylon 9, 18, Nordic 9, 12, 18, Troyes 10, 
12, 20, 24, ScriptMath, Demographics- 
36, Erie 12, 24, FontDisplay.doc, War- 
tburg, German Script Font notes, Stut¬ 
tgart 12, 24, Palo Alto 12, 24, Nordic 12, 
9, 18 24, Washington 9, 12, 18, 24, Co¬ 
penhagen 9, 12, 18, 24, Camelot 12, 24, 
ChicMath, Austin math font. 

APFS/A11. 33 programmi con Fonts e 
strumenti per gestirli: Geneva-12, Gene- 
va-24, Princeton-12, Princeton-24, new 
key caps, Read Me, Princeton2.1/24, 
Princeton2.1/12, Read Me 2, Read Me 
3, Long lsland-12 e 18, Stuttgart-12, Ca- 
melot-12 e 24, Stuttgart-24, East Oran- 
ge-12, Square Serif-24, Broadway-24, 
Font Lister, Font Editor, Resource Mo¬ 
ver, Font Mover, Contents, Part 1, Part 
2, Part 3, Part 4, Part 5, Part 6, Part 7, 
Font Doubler, Set File Attributes. 

APFS/A12. 12 programmi e documenti: 
coniugatore di verbi francesi Le Conju- 
gueur, autostampatore Yapun 3.0, com¬ 
pattatore di file Compact, e il copiatore 
Copybits. Inoltre: Curves, Simutree, Smi- 
le, Meltdown, Antitheft Icon, Venn, Card 
bic, Very New Fonts. 

APFS/A13. Per ordinare 5 dischet¬ 
ti al prezzo speciale di 75.000 lire, 
indicare nel buono d'ordine di pag. 
130 questa sigla, seguita dalle 
sigle dei 5 dischetti desiderati, a 
qualsiasi serie appartengano. 

APFS/A14 Per ordinare tutti i 12 
dischetti della prima serie, da APFS/A01 
a APFS/A12, al prezzo speciale di 
120.000 lire basta indicare nel buono 
d'ordine di pag. 130 questa sigla. 

Seconda serie: 

APFS/A15. Contiene 17 immagini, me¬ 
morizzate come documenti Paint: dise¬ 
gni o immagini digitalizzate con Tunder- 
scan o MacVision, che permettono di au¬ 
mentare la creatività nella preparazio¬ 
ne di documenti, inviti, biglietti di memo. 

APFS/A16. Oltre 20 accessori di scri- 
(Continua alla pagina seguente) 
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vania installabili nel System sotto il menù 
mela, accompagnati dal nuovo Font/DA 
Mover 3.2 e da MacSampler 2.0, che 
consente di vedere in funzione questi 
accessori di scrivania senza doverli in¬ 
stallare tutti. Tra gli accessori più inte¬ 
ressanti troviamo un Calendario, un 
emulatore di terminale VT-52, il gioco fa¬ 
moso del cubo di Rubik, SetFile che ser¬ 
ve per controllare le caratteristiche di 
Un qualsiasi File. 

APFS/A17. Oltre 22 tra Utilities, acces¬ 
sori di scrivania e documentazione. Tra 
le Utilities segnaliamo Keeper, per velo¬ 
cizzare tutte le operazioni che passano 
via Finder, e FastFormatter 2.1, che per¬ 
mette di inizializzare velocemente guanti 
dischetti si desidera; invece tra gli ac¬ 
cessori di scrivania troviamo una calco¬ 
latrice finanziaria, HD 20 Backup, per 
eseguire il salvataggio di dati contenuti 
su un disco rigido, ed uno ScreenDump. 

APFS/A18. Oltre 12 tra programmi e 
documentazioni, tra cui Ram Start 
1.233, in grado di creare una Ram Dri¬ 
ve, WayStation 2.6, per saltare da un 
programma all'altro senza passare via 
Finder, Switcher 5.01, ultima versione 
aggiornata del famoso programma che 
permette di caricare più di un'applicazio¬ 
ne contemporaneamente, con relativa 
documentazione, Window Shell, Fon¬ 
t/DA Mover 3.2. 

APFS/A19. Contiene un serie di Utilities 
per tenere in ordine i dischetti di una bi¬ 
blioteca software, come Disk Ranger, 
Directory 0.9, Phantom Cataloa, Phan- 
tom Directory, Phantom Disk Report e 
The Parer 1.5, o per evitare, tramite un 
encriptatore, come Encryptor, sguardi 
indiscreti nei vostri documenti. 

APFS/A20. 7 programmi con relativi 
documenti, tra cui Page Setup Customi- 
zer, PCS Kernel, PCS Menu, YAPU 
3.2,WS to MW, Calendar Maker ™ 2.0 
con 1986 Calendar, e la possibilità di 
creare calendari personalizzati anche 
per i prossimi anni. 

APFS/A21. Oltre 20 tra programmi, do¬ 
cumenti e disegni, tra cui Hints-Ma- 
cPaint, Painter's Helper, Bill’s Paint Co- 
pier, Slide Show, Screen Maker 2.0, Jo- 
yPaint, Icon Maker, Quest’ultimo previ¬ 
sto come accessorio di scrivania da in¬ 
stallare sotto it menù mela. 

APFS/A22. Oltre una decina di Utilities, 
tra cui JCIock, ACIock, Clock, MacWait 
2.0, Fast Eddie 2.2 Limited, Iconer, Di- 
sAsm, DrawPaint 1.0 per trasformare fi- 
les Draw in files Paint, TabUtil, 
MSGHDR,HFSOpen2.0. 


APFS/A23. 14 Utilities relative all'uso 
dei supporti magnetici (dischetti e dischi 
rigidi), tra cui SonyTest, Patch Disk, Exa- 
mine File, System Version.SHRINKTO- 
FIT, Rescue, File, Icon Exchanger 2.0, 
DevTooIs 1.1, DiskBench 1.1, Icon Crea¬ 
tor, PD Backup HD, PD Restore, lnfo+. 

APFS/A24. Oltre 13 Utilities relative a 
Finder, System, Fonts di caratteri e Dire¬ 
ctory, accompagnate da files di informa¬ 
zioni, tra cui Startup Desk, MacID, De¬ 
serte, Sequencer, Archiver e Manua¬ 
le, Compact, File Conversion, Font Te¬ 
ster, Get Keys, HFS Dir 0.98, Window 
Changer, WriteStream. 

APFS/A25. Contenente oltre 30 fonts 
di caratteri, e due Utilities relative: Fon- 
tDisplay 4.0 e Font/DAMover 3.2. Tra i 
Fonts ricordiamo: Trekkies-18, Greek- 
9/24, Circuits-14, Halfa-12, Journey-12, 
Secret-24, Saturn-18, Philly-12, Sianey- 
12, Dalì-24, Runes-12/24, Border-12, 
Exeter-13, Hood River-1", LED-24, To- 
kyo-24, Digits-14, Giants-18. 

APFS/A26. 14 Utilities, con relative in¬ 
formazioni, per chi lavora con Word 
Processing, per chi deve duplicare o ini¬ 
zializzare velocemente dischetti: Thin- 
kTank to WP, Q/reader 1.0, Fix Ma- 
cWrite, Case Converter, ScreenEdit, 
Clean Up, Soft-Tools, SpellCheck, 51 2K 
Copy, MassCopier, Mass Init, Super- 
Copy, MacClone, MacClone 2.0 

APFS/A27. Per ordinare tutti i 12 di¬ 
schetti della seconda serie, al prezzo 
speciale di 120.000 lire, basta indicare 
nel buono d'ordine di pag. 130 questa 
sigla. 

Terza serie: 

APFS/A28. Occorre Mac Draw. 32 do¬ 
cumenti e templatesMacDraw modifica- 
bili a piacere: tra essi un calendario per¬ 
petuo. 

APFS/A29. Dischetto con giochi tra cui 
Torpedos, The Adventures of Snake, 
Wargle e un creatore di Adventure per 
chi e stufo dei giochi di adventure tradi¬ 
zionali e vuole crearseli da sè. 

APFS/A30. Contiene una decina tra 
programmi e documenti per quanto ri¬ 
guarda le trasmissioni dati via modem o 
accoppiatore acustico, tra cui Pretty 
Good Term, TermWorks 1.2, AppleTer- 
minal, Packit III, UnPacker, Binhex 4.0, 
Binhex 5.0, FreeTerm 1.8. 

APFS/A31. Oltre 20 accessori di scri¬ 
vania installabili nel System sotto il menù 
mela, accompagnati dal nuovo Font/DA 


Mover 3.2 e da MacSampler 2.0, che 
consente di vedere in funzione questi 
accessori di scrivania senza doverli in¬ 
stallare tutti. Tra gli accessori più inte- 
ressanti:Q-Dial 1.5, Rolodex, Disk Labe- 
ler, Big RPN, CopyFile, CrashFix, Win¬ 
dow DA, File Transfer, Disk Info 1.42, 
FrCalcDA File ed Help, WordCount. 

APFS/A32. Contiene una serie di pro¬ 
grammi di sintesi vocale; ogni program¬ 
ma è accompagnato dalle relative istru¬ 
zioni. Tra essi: Rona, La Limerick Machi¬ 
ne, Speak Easy, MacinTalk 1.1. 

APFS/A33. 10 programmi e documenti, 
tra cui QuickFile, "Worm" Statistics, 
MortaaeCalc, Banner Printer, dCAD 
Calculator, Regression Analyzer, HP 
12C Calculator. 

APFS/A34. Oltre 15 fonts di caratteri, 
con due Utilities (FontDisplay 4.0 e Fon¬ 
t/DAMover 3.2): Stiletto-14/24, Bubbles- 
14/24, Eon-12, Ham-14, Lineal-18, San 
Quentin-24, Hollywood-24, Silicon Val- 
ley-10/20, Berkley-18, Future-9/24, Aka- 
shi-12. 

APFS/A35. Oltre 20 accessori mela, 
accompagnati dal nuovo Font/DA Mo¬ 
ver 3.2 e da MacSampler 2.0, che con¬ 
sente di vedere in funzione questi acces¬ 
sori senza doverli installare tutti. Tra i 
più interessanti: Set Default, NewCame- 
ra, Macro 0.9, Function Key's, Maxwell 
2.1, WCDA 3.0, TheBox, UnixEM, Fi- 
xUp, Charger, Panie, KeyMouse, Spli- 
Cat, LifeSaver, Utilities 2.0. 

APFS/A36. 10 programmi e documenti 
tra cui Inventory, Parametri Stats. Re¬ 
gression Linear and Multiple, LCS, PSI 
con Help files ed esempi già pronti. 

APFS/A37. Oltre 10 programmi di Utili¬ 
ties e documenti, tra cui CrashGuard, 
MapScan, DA Test 1.51, Disk Librarian 
1.7, Hard Disk Backup, Scheduler. 

APFS/A38. Oltre 10 educational, con 
relative informazioni, tra cui Drill, Ani- 
mais, Anatomy, Master Guess, Pattern 
Blocks, Fractals, Grades, FlashCards, 
Orbitai Mixing ed Orbitai Mixing Help. 

APFS/A39. Programmi di sintessi musi¬ 
cale, ognuno con le sue istruzioni, tra 
cui: Wave Maker, Weird Soundsl, 
Weird Sounds2, Bop, Hendrix 2.0, Ke- 
yboard, Mozart, MacTalk, AppleTones. 

APFS/A40. Per ordinare tutti i 12 di¬ 
schetti della terza serie al prezzo spe¬ 
ciale di 120.000 lire, basta indicare nel 
buono d'ordine di pag. 130 questa 
sigla. 
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Programmi 
per Macintosh 

AP23/A49 Trasferimento da Apple a Mac. Un 

programma eccezionale e nuovissimo: trasferire 
testi dall'Apple Ile e //c al Macintosh è ora pos¬ 
sibile e, soprattutto, semplice e ultrasicuro. La 
confezione comprende un dischetto da 3,5 polli¬ 
ci e uno da 5 pollici e 1/4. L. 50.000. 

AP24/N54 MacGraph. Un programma favoloso 
per un uso professionale del Mac: può creare 
ogni tipo di grafico, a linee, a barre o a torta, 
che poi si può incollare in qualunque altro docu¬ 
mento, da leggere o proiettare...). L. 40.000. 



Abbonamento 
DISK SERVICE 


Applicando è lieto di offrire ai propri lettori la 
possibilità di sottoscrivere un abbonamento 
a 5 o 10 dischetti, a scelta fra quelli presentati nel 
Disk Service, a un prezzo super vantaggioso: 


AP25/N58 File Cabinet. Potenza e versatilità 
caratterizzano il database per Macintosh: strut¬ 
turato come uno schedario, permette un’archi¬ 
viazione e una gestione dati molto agilei. I criteri 
di classificazione, multipli, consentono la massi¬ 
ma personalizzazione. L. 40.000. 

AP26/A62 Bioritmi. Un programma brioso, ma 
professionale nell'impostazione e nella grafica. 
Allietato dal disegno dei simboli zodiacali, trac¬ 
cia le tre famose curve fisico-emotivo-intelletti¬ 
ve mese per mese, fa i confronti e dà il consiglio 
del giorno. L. 40.000. 

AP26/A63 Irpef (occorre Multiplan). Il tempo 
delle tasse, oltre ai noti dolori, comporta perdi¬ 
te di tempo e disguidi: per compilare più in fret¬ 
ta la dichiarazione, e tenersi aggiornati con le ali¬ 
quote in corso, questo modello sfrutta la poten¬ 
za del foglio elettronico. L. 25.000. 

AP27/A68 Leasing (occorre Multiplan). Conti 
alla mano, qual è il tasso reale che vi tocca paga¬ 
re? La convenienza di ogni contratto di leasing 
conteggiata su misura grazie a una applicazione 
di matematica finanziaria sofisticata, ma sempli¬ 
ce da usare. L. 30.000. 

AP27/N69 MacBanker. Un programma realmen¬ 
te all'avanguardia, che consente la stampa degli 
assegni su modulo continuo. Lagestionedel con¬ 
to in banca, con verifica puntuale degli estratti 
conto, con registrazione accurata di ogni vostro 
versamento e di ogni assegno che emettete, è af¬ 
fidata a MacBanker. L. 40.000. 

AP28/N77. Cronometro. Un prezioso accesso¬ 
rio da aggiungere alla scrivania del Macintosh: 
tiene conto dei sessantesimi di secondo e stam¬ 
pa i nomi dei parziali. Radion Tyrant. Un avvin¬ 
cente gioco ai strategia con griglia di gioco e 
griglia di controllo. L 40.000. 

AP28/A78 Gin. Gin, il gioco del momento, ha un 
solo difetto: calcolare il punteggio è laboriosissi¬ 
mo. Nessun problema, però, se si usaquesto pro¬ 
gramma contapunti. L. 25.000. 

AP29/N82 Maclnvestor. Un programma senza 
uguali per la gestione del portafoglio titoli: 
permette un'agevole introduzione e modifica dei 
dati, la memorizzazione dei movimenti e la resa 
grafica dei resoconti. E' uno dei programmi più 
completi del settore e in assoluto il più eco¬ 
nomico. Lire 80.000. 

AP29/N83 I Ching. Un metodo di previsione del 


120.000 lire per 5 dischetti Apple II 
200.000 lire per 10 dischetti Apple II 
175.000 lire per 5 dischetti Macintosh 
300.000 lire per IO dischetti Macintosh 


Pagherete, rispettivamente, 24.000, 20.000, 35.000 
o 30.000 lire a dischetto, Iva e spese di spedizione 
comprese 

qualunque sia il prezzo di vendita 
del singolo dischetto. 

Basta che compiliate il tagliando qui sotto e lo 
inviate ad Applicando, abbonamenti Disk Service, 
Corso Monforte 39, 20122 Milano, unitamente a un 
assegno non trasferibile intestato a Editronica srl 
e al vostro primo ordine. 

Per ordinare i dischetti, adesso e in seguito 
utilizzate il buono d'ordine pubblicato alle pagine 
seguenti, specificando sempre che siete un 
abbonato del Disk Service. L'abbonamento non ha 
scadenza, quindi i 5 o 10 dischetti potete ordinarli 
quando più vi aggrada. 

->«g 

Sì, desidero sottoscrivere il seguente 
abbonamento al Disk Service: 

D 5 dischetti con programmi Apple II, per 120.000 lire 

D 10 dischetti con programmi Apple II, per 200.000 lire 
U 5 dischetti con programmi Macintosh, per 175.000 lire 
U io dischetti con programmi Macintosh, per 300.000 lire 
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futuro che n'assume la saggezza degli antichi 
cinesi. Questa versione elettronica è la prima 
che ne conserva la complessità. Lire 35.000. 

AP30/N88 MacSprint. Leggere di più e meglio. 
Leggere bene anche in inglese. Insegnare la let¬ 
tura veloce anche ai bambini. Ecco i tre obiettivi 
che questo allegro, ma molto professionale pro¬ 
gramma sa conseguire. L. 35.000. 

AP30/A89 SuperSorter. Meglio di un databa¬ 
se, SuperSorter mette in ordine alfabetico i da¬ 
ti contenuti* in un file e anche gli appunti del 
Block Notes: sa con che lettera inizia un nume¬ 
ro, sa ignorare l'articolo iniziale, ecc. L. 30.000. 

AP31/N92. Zoom. Un database grafico, struttu¬ 
rato a "diapositive", con effetto zoom, per 
ingrandire i particolari. Mappe, diagrammi, dise¬ 
gni, testi...: potete partire dalla carta geogra¬ 
fica d'Italia e arrivare, per ingrandimenti 
successivi, al portone di casa Lire 35.000. 

AP31/A93. Bilancio aziendale. Un programma 
di avanguardia per la riclassificazione dei bilan¬ 
ci. Sfrutta la potenza dello spreadsheet di Ex¬ 
cel e genera anche tre grafici. Aggiornato con 
le ultime normative Cee. Va usato con il pro¬ 
gramma Excel della Microsoft e con Macintosh 
Plus e drive da 800 K. L. 200.000 (Non ordina¬ 
bile in abbonamento ma solo singolarmente). 

AP32/N98 MacMusic. Sfrutta appieno le quat¬ 
tro voci del Mac senza por freno alla creatività; 
gestisce dasolo le conversioni numeriche. E' pos¬ 
sibile variare volume e forma d'onda. L 40.000. 

AP33/A101 Briscola. Un'appassionantesfidaa 
carte scoperte, basata su accorti calcoli e previ¬ 
sioni quasi algebriche, contro il Mac. L. 40.000. 

AP34/N105 Shopper Mac. Per tenere aggior¬ 
nata la lista della spesa. MacBanner. Crea 
manifesti per tutte le occasioni. L. 40.000. 

AP34/A106 Orto e giardini. Per la gestione di 
un appezzamento agricolo (occorre Business 
Filevision). L. 20.000. 

AP35/N109 Flaming Fingers. Simpatico e mol¬ 
to efficiente, è un allenatore che trasforma tut¬ 
ti in dattilografici abili e veloci. L. 30.000. 

AP35/N111 Movie Construction Kit. L'animazio¬ 
ne finalmente a portata di Macintosh: per fare 
film e poi rivederli, con moltissime opzioni. L. 
35.000. 


Applicazioni Omnis3 pronte per l'uso 

Applicando mette a disposizione dei lettori una serie di applicazioni già pronte, preparate 
con OMNIS3, che toccano i più svariati campi. Saranno tutte offerte a basso prezzo, e funzio¬ 
neranno con il RUNTIME di Omnis3, che acquistato una volta può essere poi usato anche con 
più di una applicazione. Ovviamente chi possiede il programma Omnis3 potrà fare a meno di 
acquistare il RUNTIME, che può essere richiesto ai migliori computer shop o a Editronica in¬ 
sieme alle applicazioni, utilizzando il tagliando del Disk Service. 

Queste applicazioni e il RUNTIME non si possono ordinareusufruendodeirabbonamento 
al Disk Service. 

FATTURAZIONE E MAGAZZINO - AP27/A70 

Per chi ha stampa molte fatture, andando a pescare i dati del venduto da un magazzino e 
quelli identificatori del cliente da un archivio. La procedura permette la personalizzazione 
della stampa delle fatture. Funziona sia su Macintosh 512K sia con Macintosh Plus, con doppio 
drive e stampante ImageWriter. NUOVA VERSIONE POTENZIATA. Lire 272.500 Iva 9% e 
spese di spedizione comprese. 

PREVENTIVAZIONE - AP27/A71 

Per una gestione del magazzino molto ampia e complessa, può gestire il carico e lo scarico au¬ 
tomatico dal magazzino, il controllo delle merci a stock, l’inventario di magazzino con la relati¬ 
va movimentazione, le chiusure periodiche e annuali, la gestione dell’elenco Clienti e Fornitori, e 
la gestione di preventivi e di commesse di vendita o acquisto. Può funzionare sia con il Mac da 
512K che con il Plus, con ImageWriter, ma si consiglia l'uso di un Hard-Disk o di drive da 
800K per la registrazione. Lire 272.500 Iva 9% e spese di spedizione comprese. 

GESTIONE APPUNTAMENTI - AP27/A72 

Gli appuntamenti vengono suddivisi per Clienti, Fornitori, Meeting interni all'ufficio e impe¬ 
gni personali. E' possibile effettuare ricerche di appuntamenti nell'arco di un giorno, di una 
settimana, di un mese. Funziona con Mac 512K o Plus con doppio drive e ImageWriter. Lire 
163.500 Iva 9% e spese di spedizione comprese. 

GESTIONE CONTABILITA' DOMESTICA - AP29/A81 

Per avere sempre sotto controllo l'andamento delle entrate e delle uscite tipiche di una 
contabilità domestica. A mano a mano che si caricano i i movimenti, vengono automaticamente 
aggiornati i totali Entrate, Uscite e Saldo; di quest'ultimo è possibile la stampa dettagliata. 

Lire 119.900 Iva 9% e spese di spedizione comprese. 

GESTIONE BIBLIOTECHE - AP30/A87 

E' un'applicazione di elevata professionalità, che consente di tenere sotto controllo, oltre al¬ 
l’archivio aggiornato, anche tutti i movimenti utente: prestiti, rese e così via. Basta richeide- 
re un libro secondo una qualsiasi chiave per saperne la posizione e lo stato. Lire 119.900 Iva 
9% e spese di spedizioni comprese. 

GESTIONE CONTO CORRENTE - AP31/A91 

E’ un'applicazione indispensabile soprattutto per chi utilizza diversi conti in più banche. Ge¬ 
stisce tutti i dati anagrafici e tutte le operazioni. Calcola i saldi parziali e totali e consente la 
stampa dell'estratto conto. Lire 119.900 Iva 9% e spese di spedizioni comprese. 

RUNTIME OMNIS3 - AP27/A73 

Serve a utilizzare, tutte le applicazioni create con Omnis3. Lire 381.500 Iva 9% e spese di 
spedizioni comprese. 
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Compilare e spedire il tagliando qui sotto a Applicando, Editronica srl, Corso Monforte 39, 20122 Milano 

Vogliate inviarmi i seguenti dischetti: 
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Sono abbonato al Disk Service: sì □ noD 


Cognome . Nome. 

Via . CAP . 

Città.Prov. 

Scelgo la seguente formula di pagamento: 

I I allego assegno di L . non trasferibile intestato a Editronica Srl. 

CU allego ricevuta di versamento di L . sul cc/p n. 19740208 

intestato a Editronica srl, C.so Monforte 39, 20122 Milano. 

□ pago fin d'ora l'importo di L . con la mia carta di credito 

Bankamericard N . scadenza . 

autorizzando la Banca d’America e d'Italia ad addebitarne l'importo sul mio conto. 


Data . Firma . 

I I Desidero fattura. Il mio codice fiscale/partita Iva è: . 
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un foglio elettronico in miniatura. I 
campi riassunto permettono inve¬ 
ce di eseguire automaticamente 
calcoli su tutti i valori presenti nei 
database. 

Flessibile. 

L’introduzione dei dati avviene u- 
sando formati scheda interamen¬ 
te ridefinibili dall'utente: lo stile, le 
dimensioni dei caratteri, la dispo¬ 
sizione dei campi, tutto può esse¬ 
re ridefinito in modo da poter pre¬ 
sentare i dati nella forma deside¬ 
rata. 

E' possibile persino ridefinire com¬ 
pletamente il formato della pagi¬ 
na usata per stampare, stampa¬ 
re più records sulla stessa riga (eti¬ 
chette multiple), ecc. 

Relazionale. 

FileMaker Plus è un vero relaziona¬ 
le. Il numero di relazioni che è 
possbiie impostare è illimitato. 


Versatile. 

Ogni campo viene automatica- 
mente indicizzato, per cui è possi¬ 
bile effettuare ricerche per qual¬ 
siasi chiave: un set completo di 
criteri di selezione permette di tro¬ 
vare rapidamente tutto ciò che si 
desidera. 

Compatibile. 

E' possibile importare aH’intemo 
del database file di dati preesi¬ 
stenti che siano stati registrati nel 
formato ASCII o SYLK. E' ad e- 
sempio possibile recuperare ed 
usare con FileMaker Plus i dati già 
introdotti usando Microsoft File 
oppure Overvue. 

Sicuro. 

FileMaker Plus registra automati¬ 
camente i dati non appena que¬ 
sti vengono introdotti. C’è inoltre 
una funzione di recupero che gli 
consente di rigenerare i dati che 
si trovano su un file danneggiato. 


Vi presentiamo 
FileMaker Plus. 

Potente e versatile. 

Questo programma ha la capa¬ 
cità di archiviare dati di qualsiasi ti¬ 
po; riunisce tutte le migliori carat¬ 
teristiche dei programmi di archi¬ 
viazione attualmente esistenti sul 
mercato per Macintosh. 


Completo. 

Nella definizione dei files sono di¬ 
sponibili i seguenti formati per i 
campi; testo, numerico, data, im¬ 
magine, calcolo, riassunto. Infatti 
è possibile introdurre negli arichivi 
immagini di qualsiasi tipo importa¬ 
te usando gli appunti. 

Le possibilità offerte sui campi 
calcolati sono enormi; sono di¬ 
sponibili funzioni quali deviazione 
standard, valore futuro di un inve¬ 
stimento, funzioni logiche e tante 
altre: praticamente a disposizio¬ 
ne all'interno del database c'è 


Distribuito in esclusiva da: 

Corso Italia 149-34170Gorizia-Telefono0481/30909-32790 


Disponibile negli Apple Center o per corrispondenza 

in versione italiana 


Configurazione: Prezzo: 

Macintosh 512/800, Plus, SE, II. 415.000 lire + iva. 





Parola di Macintosh 



Chiunque abbia dimestichezza con il Macintosh sa perfettamente che Microsoft Word è di gran lunga il miglior 
programma di elaborazione testi disponibile. 


Non è necessario, per apprezzare la potenza di Word, essere un romanziere alle prese con una storia di 400 pagine: è 
sufficiente non voler investire il proprio tempo su programmi meno efficienti e, oltretutto, più complicati da usare. 
Basta lavorare su più documenti contemporaneamente, componendo ad esempio una relazione con parti di altre già 
scritte in precedenza, oppure inviare una lettera circolare, combinando il testo con la lista degli indirizzi, o gestire, con 
una gamma impareggiabile di possibilità, una stampante laser. 

Per non parlare della possibilità di crearsi un Glossario, cioè un archivio di parole o frasi di uso ripetitivo, da richiamare 
con un solo tasto. 

Queste caratteristiche, e molte altre ancora, come la sua sorprendente semplicità di uso, fanno di Word la scelta per 
eccellenza per chi sappia di volere il meglio, e non esiti di fronte ad esso. 

Microsoft Word è disponibile presso tutti gli Apple Centers ed i Distributori Autorizzati Microsoft. 

MICROSOFT 

Potenza e semplicità. Insieme. 

MICROSOFT S.p.A. - 20093 Cologno M s . e (MI) - Via Michelangelo, 1 
tei. (02) 2549741 r.a. - fax (02) 2549745 


grui>j»otrr 



